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Within  the  ALIAS  system,  a  utility  is  a  FORTRAN  subroutine 
or  BUILDER  screen  which  performs  a  well-defined,  limited  task  in 
such  a  way  that  it  can  be  used  by  many  system  processors.  For 
example,  the  CCAT2  subroutine  is  used  by  virtually  all  ALIAS 
FORTRAN  programs  when  they  want  to  concatenate  two  character 
strings. 

A  routine  is  typically  not  considered  a  utility  if  the 
function  it  performs  is  of  interest  to  only  one  program,  or  if  it 
requires  that  a  complex  global  data  structure  be  in  place  if  it 
is  to  work  properly.  The  main  motivation  for  using  utilities  is 
that  they  save  the  programmer  time;  if  the  programmer  must  go  to 
a  lot  of  trouble  getting  set  up  to  use  a  given  "utility",  he  is 
less  likely  to  find  it  a  time- saver. 

That  said,  some  ALIAS  utilities  do  require  that  a  global 
data  structure  be  in  place  if  they  are  to  work  properly,  but  this 
structure  is  almost  always:  (1)  the  System  Core  data  structure, 
which  is  always  in  place  during  an  ALIAS  run,  or  (2)  a  structure 
that  can  be  initialized  by  a  call  to  single  initialization 
routine. 

This  Section  will  list  and  describe  ALIAS  utilities.  It  is 
meant  to  be  a  reference  for  programmers  engaged  in  development 
work. 


The  Section  will  also  present  all  ALIAS  FORTRAN  include 
files  (which  typically  contain  common  block  definitions);  these 
are  like  utilities  in  that  they  are  global  resources  often  used 
by  more  than  one  processor. 

Miscellaneous  system  resources,  such  as  extra  data 
segments,  will  also  be  covered. 


The  theme  for  Section  10,  then,  is  coverage  of  shared  sys¬ 
tem  resources:  anything  used  by  more  than  one  ALIAS  module  or  by 
more  than  one  part  of  the  Core  will  be  covered  here  (but  not  the 

ALIAS  FORTRAN  utility  routines  fall  into  three  categories: 

1)  Linkable  general-purpose  routines,  where  "linkable" 
means  their  object  code  is  included  in  a  program  at  PREP 
time. 

2)  Data  Base  management  system  InterFace  routines  (DBIF)  . 
These  buffer  requests  for  DBMS  services.  They  are  more 
programmer- friendly  than  RELATE  HLI  routines,  and  make 
ALIAS  more  convertible  by  isolating  the  calls  that 
depend  on  the  particular  DBMS  being  used. 

3)  BUILDER-callable  routines.  Residing  in  the  account 
Segmented  Library,  these  routines  are  designed  to  serve 
BUILDER  screens  (via  the  BUILDER  CALL  PROCEDURE 
command)  .  They  are  linked  at  or  after  RUN  time.  It  is 
possible  to  call  some  of  them  from  normal  FORTRAN 
programs,  but  this  is  not  usually  advisable. 

The  next  three  subsections  will  discuss  each  class  of  FOR¬ 
TRAN  utility  in  turn.  Section  10.4  will  discuss  BUILDER  utility 
screens.  Section  10.5  presents  ALIAS  FORTRAN  include  files,  and 
Section  10.6  discusses  miscellaneous  global  resources. 

10.1  GENERAL  PURPOSE  FORTRAN  ROUTINES 

ALIAS  general-purpose  FORTRAN  utilities  reside  in  the  UTLO, 
UTLR,  and  RECOMP  libraries.  Source  code  is  in  utlo.src, 

recomp. src,  and  utlr _ .src  (there  are  several  utlr  source  files; 

routines  appear  in  them  in  alphabetical  order  according  to  the 
usual  naming  conventions).  Object  code  is  in  utlo.obj  and 
recomp. obj  (normal  object  code  files  whose  contents  must  be 
copied  into  an  object  code  file  about  to  be  PREPed) ,  and  in 
utlr. obj.  Utlr. obj  is  a  Relocatable  Library  (RL),  a  special  HP 
file  which  can  be  specified  as  a  place  for  PREP  to  look  for 
unsatisfied  externals.  This  file  should  never  be  specified  as 
the  target  for  compilation;  object  code  must  be  moved  into  this 
file  from  a  regular  object  code  file  by  explicit  SEGMENTER 
commands . 
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Note  that  any  routine  called  by  a  routine  in  an  RL  must 
also  be  in  the  RL  (or  else  in  the  SL) .  This  is  why  UTLO  is 
maintained  in  addition  to  UTLR.  UTLO  contains  utilities  which 
are  inconvenient  to  keep  in  the  RL,  typically  because  they  use 
common  blocks  which  change  occasionally.  It  is  tedious  to  have 
to  do  the  recompilation  and  then  replace  the  object  code  copy  in 
the  RL  as  well. 

If  utilities  are  self-contained  it  is  more  convenient  to 
keep  them  in  the  RL  because  the  amount  of  SEGMENTER  work  neces¬ 
sary  to  build  up  an  object  code  file  suitable  for  processing  by 
PREP  is  reduced. 

This  Section  is  meant  as  a  reference  to  allow  programmers 
to  quickly  locate  utilities  of  use  to  them,  or  to  find  more 
information  about  utilities  they  are  having  difficulty  with.  The 
utilities  will  be  divided  into  about  20  groups  by  purpose,  and  a 
brief  introduction  to  each  group  will  be  provided.  Table  10-1 
lists  the  groups;  Table  10-2  is  an  annotated  listing  of  the  util¬ 
ities  in  each  group,  the  annotations  describing  the  purpose  of 
each  routine.  Programmers  looking  for  a  utility  to  perform  a 
specific  task  will  hopefully  be  able  to  find  it  quickly  by  con¬ 
sulting  Tables  10-1  and  10-2. 

Detailed  information  about  any  given  utility  will  be  found 
in  Section  10.1.2,  which  contains  the  abstract/header  from  each 
utility  routine  in  alphabetical  order.  These  describe  what 
arguments  are  required  and  the  operation  of  the  routine  in  more 
detail. 


Programmers  with  the  opposite  problem,  a  specific  utility 
which  they  want  to  know  more  about,  can  find  out  which  group  the 
routine  belongs  to  and  where  its  source  code  is  located  by  refer¬ 
encing  the  alphabetical  listing  of  Table  10-3. 
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Table  10-1.  Types  of  General-Purpose  FORTRAN  Utility 


PURPOSE 

BIT  MAN  I PLUAT  ION 

CHARACTER  STRING 
MANIPULATION 

DATA  MOVEMENT 

DATA  RANGE  CHECKING 

DATA  TYPE  CONVERSION 

DATE  MANIPULATION 

DEVICE  CONTROL 

DIAGNOSTICS 

ERROR  MESSAGE  OUTPUT 

FILE  OPEN/INPUT/OUTPUT 

FORMATTERS 

INITIALIZATION 

LINE  INPUT 

MATHEMATICS 

MEMORY  MANAGER 

MISCELLANEOUS 

OPERATING  SYSTEM 
INTERFACE 

SORTING  SEARCH ING 
STACK  DATA  TYPE 
USER  INTERACTION 
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C 

r* 

si 


DISCUSSION 

Bit  comparison,  bitwise  and/or 

String  operations,  e.g.  concatenation, 
parsing,  uppercasing,  etc. 

Transfer  data  from  one  array  to  another. 

Also  array  initialization. 

What  kind  of  characters  in  string? 

Number  too  big? 

ASCII  to  numeric  and  vice  versa. 

Any  date-oriented  operation  you  can  imagine. 
Aids  for  sending  hard  copy  output, 
lprnt  setting  aids. 

Means  to  tell  the  user  things  are  messed  up. 

A  near-F77  OPEN  and  some  direct  access  helpers 
For  paged  output  and  for  bulk  text  output. 
Never  hurts  to  call  these,  often  helps. 
Retrieve  the  next  input  line  from  anywhere. 
Mainly  vector  operations. 

An  interface  to  extra  data  segments. 

Various  goodies. 

These  make  the  intrinsic  calls  for  you. 

Find  a  match,  sort  an  array. 

Implementation  of  a  stack  data  type. 

Prompting  utilities. 


1 


"73 
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Table  10-2.  General-Purpose  FORTRAN  Utilities  By  Type 
NAME  PURPOSE 


BIT  MAN IPLUATION 

I AND  IOR  is  an  entry  point  in  I AND.  These  do  AND  and  OR 

IOR  tests  on  the  least  significant  bit  of  a  16-bit  number. 

They  are  integer  functions,  returning  a  1  or  0. 

LB IT  Logical  function  returning  true  if  a  given  bit  in  a 

16-bit  word  is  set. 


CHARACTER  STRING  MANIPULATION 

CCAT2  CCAT4  is  an  entry  point  in  CCAT3 .  These  concatentate 

CCAT3  2,  3,  or  4  separate  strings  into  a  single  output 

CCAT4  string.  Input  strings  may  be  delimited.  An  input 
string  may  be  specified  as  the  output  target. 

CEQ  Logical  function  which  strips  trailing  blanks  only 

before  performing  an  equality  test  on  two  strings.  Use 
CIF  in  general. 

CHNALO  These  support  string-chain  data  types  which 

CHNDEA  manages  a  string  buffer  space,  allowing  efficient 

CHNFRE  storage  of  large  strings.  See  CHNINI  abstract. 

CHNINI  Note  the  routines  can  support  many  buffers;  the  buffer 
data  structure  is  not  built  into  them. 

CIF  Logical  function  which  strips  leading  and  trailing 

blanks  from  two  input  strings  and  then  compares  them. 
Useful  since  HP  automatically  considers  two  strings  of 
different  length  or  with  different  blank-padding  not 
equal. 

DELIM  Useful  in  extracting  from  a  delimited  string. 

DINDEX  Integer  function  which  performs  an  index  on  a  delimited 
string. 

ELIMBL  ELIMinate  BLanks.  Lef t- justif  ies  a  string  and  returns 
its  non-blank  length. 

LCWERC  Converts  all  letters  in  a  string  to  lower  case.  An 
entry  point  in  UPPERC. 

LSTRNG  Undelimits  a  string  and  lef t- justif ies  it  in  the  output 
buf  f  er . 

LTRIM  Integer  function  giving  the  location  of  the  leftmost 
non-blank  character.  Returns  length+1  if  all  blanks. 


10-5 


MPDCOD 


MSTRNG 


NCFLW 

NCFW 

NCSW 

NLWFC 

NSWFC 

NSWFW 

NWFC 

NWFSW 

RTRIM 


OPPERC 


XMIT 

XMITB 

XMIT2 

XMIT2B 

XMIT4 

XMIT4B 

XMITC 

XMITCB 


ASCINT 


ASCPRN 


Parser  which  splits  a  delimited  string  further 
delimited  internally  by  commas  into  its  constituent 
parts,  placing  them  in  an  output  array.  Now  used  only 
by  filopn. 

Makes  the  input  string  into  a  delimited  string.  This 
is  an  entry  point  in  LSTRNG. 

All  these  routines  are  entry  points  in  NCFW. 

They  convert  array  length  in  number  of  *2,  *4,  and 
*8  words  into  lengths  in  bytes,  and  vice  versa. 


Integer  function  returning  the  location  of  the 
rightmost  non-blank  character.  Returns  0  if  all 
bl anks . 

Uppercases  all  letters  in  the  string. 


DATA  MOVEMENT 

These  routines  are  just  assignment  loops  which 
transfer  data  from  one  array  to  another.  Xmit  and 
xmit4  do  reals  or  integer*4,  xmit2  integer*2,  and  xmit 
characters.  Ihey  can  reduce  the  volume  of  code  in 
your  routines  by  doing  the  work  of  loops  with  only 
one  line.  Also,  if  their  number- of- words- to- transfer 
argument  is  negative,  they  expect  the  source  to  be 
a  single  word  (byte)  which  they  are  to  fill  the  target 
with.  They  can  thus  be  very  handy  for  array 
initialization.  Note  xmit  expects  to  loop  a  *2  number 
of  tiroes,  xmit4  a  *4  number  of  times,  so  be  careful 
specifying  arguments.  Also,  the  regular  entry  points 
can  left- shift  data  (i.e.  move  second  element  of  an 
array  into  first  element,  third  into  second,  etc.) 
while  the  "B"  entry  points  can  right-shift. 


DATA  RANGE  CHECKING 

Returns  true  if  string  has  ASCII  integer  characters 
only. 

Returns  true  if  string  contains  only  printing  ASCII. 


NAME 

ASCREL 

BETWN 

CRNGI 

CRNGI4 

LETNUM 

LETONL 

FLT 

KPIX 

’  NUMASK 

NUMSFX 

PLURAL 

STRN 

CDTODD 


Table  10-2.  General-Purpose  FORTRAN  Utilities  By  Type 


PURPOSE 


Same  as  ASCINT  but  permits  ".",  thus  allowing  real 
numbers. 

Returns  true  is  an  integer  lies  between  specified  low 
and  high  values. 

Generates  an  abort  if  an  integer's  value  lies  outside 
a  specified  range.  The  4  version  is  for  *4  integers. 

Returns  true  if  a  string  contains  letters  and  numbers 
only,  i.e.  no  "%",  etc. 

Returns  true  if  a  string  contains  letters  only. 


DATA  TYPE  CONVERSION 

Converts  a  string  to  a  real  number.  Same  as  the 
corresponding  FORTRAN  intrinsic,  but  this  routine 
returns  an  error  flag  instead  of  a  system  abort  if  it 
can' t  do  the  job. 

Converts  a  string  to  an  integer  (*2)  .  Returns  an  error 
flag  true  (rather  than  an  abort)  if  string  cannot  be 
converted. 

Converts  an  integer  number  into  a  character  string  AND 
right-j ustif ies  it  into  a  given  character  string. 

E.g.,  23  4  and  "00000"  come  out  as  "00234";  -12  and 
"0000"  as  "0-12".  If  the  number  is  too  big  to  fit  then 
"****..."  are  output,  conforming  to  the  usual  FORTRAN 
convention.  Useful  in  output  construction. 

Character  function  returning  a  labeling  suffix  for  a 
number,  in  caps  or  lower  case.  E.g.,  5  leads  to  output 
of  "th"  or  "TH";  1  to  output  of  "st"  or  "ST".  Useful 
in  constructing  custon^f ormatted  output. 

Similar  in  purpose  to  numsfx.  Character  function 
returning  "s"  or  "S"  if  number  input  is  1,  blank 
otherwise. 

Like  the  FORTRAN  intrinsic  STR,  converts  a  number  to  a 
string.  This  version  returns  the  output  length, 
though. 


DATE  MANIPULATION 

Convert  "MM/DD/YYYY "  version  of  date  into  standard 
ddate  *4  format. 


Table  10-2.  General-Purpose  FORTRAN  Utilities  By  Type 


NAME  PURPOSE 

CKDATE  Ensures  a  string  contains  a  valid  date  representation. 

Can  be  called  before  to  cdtodd  to  avoid  errors. 

Logical  function. 

CKDATI  Checks  a  3-integer  version  of  a  date  to  ensure  it's 
valid  (date  in  mm,dd,yy  integers).  Logical  function. 

CVTDAT  Converts  a  "MM/DD/YYYY"  date  into  a  3 -integer  form, 
returning  an  error  flag  if  it  can't  do  it.  This 
routine  is  obsolete;  a  combination  of  CKDATE,  CDTODD, 
and  DDTOID  should  be  used  instead. 

DATEMK  Low-level  date  subsystem  utility  which  converts  the 

subsystem  date  representation  (*4  Julian  since  1601) 
into  a  3 -integer  form.  Meant  to  be  called  only  by 
higher-level  date  utilities. 

DATEP1  Increments  a  3-integer  version  of  a  date  by  one  day. 

DATSTR  Returns  today's  date  in  a  "MM/DD/YY"  format. 

DCLRFY  Takes  a  RELATE  representation  of  a  date  (*4  word)  and 

sets  all  unused  bits  to  0.  Good  insurance  against  date 
subsystem  aborts,  since  RELATE  appears  to  set  these 
bits  randomly,  causing  some  of  our  routines  to  have 
problems. 

DDATE  Integer*4  function  returning  today's  date  in  the  RELATE 
*4  format. 

DDTOCD  Character *10  function  which  converts  from  a  ddate 

format  to  "MM/DD/YYYY". 

DDTOID  Converts  from  a  ddate  format  to  a  3-integer  format. 

DEARLY  Function  returning  true  if  first  argument  earlier  than 
second  (both  arguments  in  ddate  form)  . 

ERLDAT  Returns  the  earliest  possible  ddate.  This  is  an  entry 
point  in  LATDAT. 

FDDATE  Returns  the  first  date  in  a  given  period  in  a  ddate 
format,  for  a  wide  variety  of  period  types. 

GDATEP  Returns  to  first  day  of  the  i-th  period  in  a  ddate 
format,  for  a  given  fddate  and  period  type. 

GPERN  Given  a  ddate,  returns  the  number  of  the  period  it 
falls  in,  for  a  given  fddate  and  period  type. 
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Table  10-2.  General-Purpose  FORTRAN  Utilities  By  Type 


NAME 


PURPOSE 


I  DAYS  Integer  function  returning  the  number  of  days  between 

two  dates,  specified  in  3-integer  format. 

IDTODD  Converts  from  3-integer  format  to  ddate  format. 

JDAYS  Like  IDAYS  but  returns  a  *4  number  instead  of  *2. 

L  AT  DAT  Returns  the  latest  possible  ddate. 

LMONTH  Integer  function  returning  the  number  of  days  in  a 
given  month. 

MRKDAY  Converts  a  3-integer  date  into  a  ddate.  Low-level 
utility  meant  to  be  called  only  by  high-level  date 
routines. 

NWDATE  Integer *4  function  returning  a  ddate  N  days  later  than 

a  given  ddate. 

NNDATU  Integer*4  function  returning  the  ddate  N  periods  after 
a  given  ddate. 

NWIDAT  Same  as  NWDATE  but  input  and  output  in  3-integer 
format. 

RDATE  Returns  today's  date  in  RELATE  Real  storage  format. 
Obsolete,  use  DDATE  instead. 

RDFSTR  Converts  from  an  RDATE  format  into  a  "MM/DD/YY"  format. 
Obsolete,  standardization  mandates  ddate  formats. 

DEVICE  CONTROL 

L  PS  END  Closes  a  spooled  output  file  (opened  with  LPSET)  , 

causing  actual  printing  to  commence. 

LPSET  Returns  a  FORTRAN  i/o  unit  number  opened  on  the  device 
specified  by  the  user  in  his  user  environment  parameter 
menu. 


SCLEAR  Clears  the  screen.  Depends  on  the  current  terminal 
type  setting  on  the  user  environment  parameter  menu 
being  correct. 

SETCCL  Reads  the  user  environment  parameter  menu  terminal  type 
setting  a  stores  the  proper  screen  clear  character 
sequence  for  use  by  SCLEAR. 

SETTTY  Attempts  to  discover  the  user's  terminal  type  by 

figuring  out  what  port  he's  logged  on  through.  Port 
number  logic  is  hard-wired  into  the  routine. 
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Table  10-2.  General-Purpose  FORTRAN  Utilities  By  type 


NAME  PURPOSE 


DIAGNOSTICS 

DEBUG  Logical  function  which  reads  the  L  PEN  TON  job  control 
word.  Generally  used  in  a  statement  like  IF  (debug) 
CALL  setlpr. 

SETLPR  Prompts  user  for  changes  to  current  lprnts  settings. 

SLPRNT  Takes  an  lprnts  array  index  and  a  true/false  argument 
and  sets  that  lprnt  to  that  value. 

ERROR  MESSAGE  OUTPUT 

ERRMSG  Writes  a  delimited  text  string  to  the  screen,  preceded 
by  «•*** 

LABORT  Constructs  an  abort  message  which  includes  "AT  line 

number”  plus  a  user  message.  Useful  when  an  input  file 
is  being  processed  and  you  want  to  tell  the  user  what 
line  the  problem  occured  at. 

LWARN  Like  LABORT  but  just  prints  the  message  without 
aborting. 

MABORT  Prints  an  error  message  contained  in  a  delimited  text 
string  and  calls  ZABORT. 

ZABORT  General  abort  routine.  Prints  an  abort  notice  and 
STOPS  execution. 


FILE  OPEN/ INPUT/OUTPUT 

DWRITE  These  are  all  entry  points  in  DWRITE.  They  do  direct 

DWRIT1  access  reads/writes  of  a  specified  record  to  a 

DREAD  specified  location  on  a  specified  unit  number.  The 

DREADl  regular  entries  abort  on  an  error,  the  "1"  entries  set 

an  error  flag  and  return. 

FEXIST  Logical  function  which  returns  true  if  the  file  named 
in  the  argument  exists. 

FILCLS  Closes  a  file  opened  via  POPEN. 

FILOPN  Opens  a  file  for  FORTRAN  access.  Files  include  devices 
in  this  context.  See  the  text  on  file  i/o  for  an 

exposition  of  all  the  possible  file  specifiers - any 

kind  of  file  can  be  created/opened. 
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Table  10-2.  General-Purpose  FORTRAN  Utilities  By  Type 


NAME  PURPOSE 

UREAD  WRITE  is  an  entry  point  in  UREAD.  These  do 
UWRITE  unformatted  sequential- access  reads/writes  between  a 

given  integer  array  and  an  active  unit  number.  No 
error  checking. 


FORMATTERS 

EJECT  Does  a  page  eject  on  the  given  unit  number. 

PGINIT  These  routines  comprise  the  page  printing  system. 

PGRSET  They  are  in  UT10.  You  can  set  up  a  header  and  a 

PGSEND  page  size  and  other  attributes  and  just  send  lines 

PGWRIT  to  this  system,  letting  it  worry  when  to  do  the  page 
breaks.  See  the  text  on  formatters  for  a  fuller 
description. 

PRTHLP  This  is  useful  for  printing  bulk  help  text  or  static 

menus.  It  expects  a  unit  nixnber  which  is  connected  to 
a  sequential  ASCII  file  in  80-column  editor  format,  and 
a  section  header  label.  It  reads  through  the  file, 
finds  the  section  by  getting  a  match  on  the  header,  and 
prints  the  section.  Much  easier  than  putting  things 
into  format  statements. 

TRECOL  Prints  a  list  (array)  of  character  elements  in  three 
columns  onto  a  specified  unit. 


INITIALIZATION 

CFINIT  Initializes  the  Core  command  system's  stored  commands 
subsystem.  The  routine  MUST  be  called  before  the 
READLN  utility  can  be  used. 

GETSRP  Determines  whether  the  user  is  running  the  development 
or  production  version  of  ALIAS,  and  sets  the  variable 
that  holds  the  group  name  where  menu  system  files  and 
relations  will  be. 

INIPRC  Does  general  initialization  for  a  FORTRAN  module  being 
executed  as  a  son  process  by  the  Core,  including 
swap- in  of  the  Core  common  blocks  generally  of  interest 
(e.g.,  /uzrprv/,  /scenar/,  and  /pvalue/. 

IN  HOC  Together  these  routines  will  initialize  i/o  for  the 

INITIO  utilities  and  for  a  FORTRAN  module  in  general.  Mainly 
they  set  the  integer  variables  which  hold  the  standard 
input  and  output  unit  numbers.  Mabort,  zabort,  etc. 
will  not  work  if  these  are  not  called. 
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NAME 

TTYINI 


RDLN 

RDLNC 

RDLNCU 

READLN 


IXSCM 

RANF 

RANGET 

RANSET 

RANST1 

RANTRP 

VSUMNI 

VSUBNI 


FINMEM 
GET  MEM 


Table  10-2.  General-Purpose  FORTRAN  Utilities  By  Type 
PURPOSE 


A  terminal-type  detection  utility  which  works  by 
querying  the  user.  Sometimes  useful  during  module 
debugging  when  you  don1 t  want  to  be  hooked  up  to  the 
Core;  the  screen  clear  sequence  is  placed  in  the  /tty/ 
block. 


LINE  INPUT 

Reads  a  72-character  line  from  a  given  unit  without 
upper  casing. 

Reads  72-character  lines  without  upper casing  and  keeps 
track  of  the  number  read  in  the  /readc/  block. 

Like  RDLNC  but  upper cases  as  well. 

The  main  System  Core  line-read  routine.  This  routine 
knows  about  the  stored  commands  subsystem;  it  will 
automatically  close  a  command  file  and  reset  to  normal 
terminal  i/o  operation  (via  a  call  to  stopcf)  when  the 
end  of  the  command  file  is  reached.  Always  use  this 
routine  for  obtaining  user  input  in  the  Core,  and  for 
any  module  linked  into  the  Core  that  you  want  to  be 
serviced  by  the  stored  commands  subsystem.  Note  that 
READLN  upper cases  all  input. 


MATHEMATICS 

Sums  up  all  elements  of  a  1-dimensional  vector  (array). 
Integer *2  function. 

Random  number  generator.  Provides  numbers  along  up  to 
10  sequences;  specify  sequence  when  calling  RANF. 
Initialization  of  seed  for  a  specific  sequence  done  by 
call  to  RANSET.  RANST1  initializes  all  sequences. 
RANGET  returns  the  current  status  of  all  sequences  for 
saving. 

Vector  sum  for  two  1-dimensional  vectors. 

Vector  difference  for  two  1-dimensional  vectors.  This 
is  an  entry  point  in  VSUMNI. 


MEMORY  MANAGER 

The  memory  manager  supports  use  of  extra  data  segments 
for  extended  global  storage.  Inimem  initializes  for  a 
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Table  10-2.  General-Purpose  FORTRAN  utilities  By  Type 


NAME  PURPOSE 


IN  I  MEM  given  segment,  putmem  and  getmem  allow  transfer  of 

PUTMEM  arrays  between  the  segment  and  directly  addressable 
memory,  and  firanem  releases  the  segment.  These 
utilities  are  very  useful  if  your  program  requires  more 
than  64K  bytes  of  data  memory.  You  can  page  the  big 
arrays  to  one  or  more  64K  segments. 


MIS  CELL  A?  S 

LISTON  Given  a  menu  name  and  a  scenario  key  field  value,  this 
routine  returns  a  list  of  candidates  on  the  given  list 
menu  and  their  on/off  statuses. 

MODCOR  An  alternative  modulo  function. 

STOPCF  Really  part  of  the  Core  command  system's  stored 

commands  subsystem,  this  must  be  in  the  RL  because  it 
is  called  by  READLN.  The  routine  just  resets  i/o  and 
command  system  units  and  flags  on  end-of-command-f ile. 


OPERATING  SYSTEM  INTERFACE 

CPUTIM  Current  system  cpu  clock  time  in  milliseconds.  TVo 
calls  (this  is  a  real  function)  give  an  interval. 

MON COM  Executes  a  monitor  command  (i. e.  an  MPE  command). 

USRINF  Returns  id  information  about  the  user,  including  name 

and  log-on  group.  Has  3  entry  points:  USRNAM,  USRGRP, 
USRACT. 


SORTING  SEARCH ING 

CHASH  Does  a  hash- type  sort  on  a  character  array.  Does  not 
actually  sort  the  array,  just  returns  an  array  of 
integers  that  give  the  sorted  order  of  the  character 
array  elements. 

CHASHV  Used  by  CRASH. 

JHASH  Same  as  CHASH,  but  operates  on  a  *4  integer  array. 

MATCH2  Integer  function  returning  the  location  in  an  array  of 
integers  of  a  given  target  integer. 

MATCHC  Same  as  MATCH2,  looks  for  a  match  for  a  character 
string. 
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Table  10-2.  General-Purpose  FORTRAN  Utilities  By  Type 


NAME 

MTCHOC 

QSORTC 

CSINIT 

CSPOP 

CSPOPR 

CSPSH 

CSPSH2 

CSPSHL 

CSRD 

CSRD2 

CSRDL 


PURPOSE 

Same  as  MATCHC  but  assumes  that  character  array  it  is 
to  search  is  sorted.  More  efficient  if  this  is  true. 

Returns  a  character  array  sorted.  Uses  heap  sort 
method. 

STACK  DATA  TYPE 

See  text  discussion  of  the  stack  data  type  for  purpose 
and  organization  of  these  routines.  CSINIT  initializes 
the  stack  system. 

Pops  an  item  off  the  stack 

Pops  and  returns  an  item  from  the  stack. 

Pushes  an  item  onto  the  stack. 

Pushes  two  items  onto  the  stack. 

Pushes  many  items  onto  the  stack. 

Reads  the  top  item  on  the  stack  and  leaves  it  there. 
Reads  two  items  at  top  of  stack  and  leaves  them  there. 
Reads  many  items  and  leaves  them  there. 


USER  INTERACTION 

CNTINU  Stops  execution  and  prompts  the  user  to  hit  return  to 
continue.  Useful  when  a  message  has  been  put  up  and 
the  user  needs  to  have  the  leisure  to  read  it  before 
more  output  is  done. 

D PAUSE  Does  an  N- second  process  pause. 

QUERY  Logical  function  prompting  user  for  yes-or-no  answer  to 

a  given  (delimited)  text  query.  Uses  YESNO. 

YESNO  Logical  function  which  forces  the  user  to  answer  Yr 

YES,  N,  or  NO.  Calls  READLN  for  input,  so  cfinit  and 
initio  and  iniioc  must  be  called  before  this  is  used. 
Does  not  print  prompt. 
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Table  10-3.  General-Purpose  FORTRAN  Utilities  By  Name 


NAME 

SOURCE  FILE 

TYPE 

ASCINT 

UTLRA 

DATA  RANGE  CHECKING 

ASCPRN 

UTLRA 

DATA  RANGE  CHECKING 

AS OREL 

UTLRA 

DATA  RANGE  CHECKING 

BETWN 

UTLRA 

DATA  RANGE  CHECKING 

CCAT2 

UTLRA 

CHARACTER  STRING  MANIPULATION 

CCAT3 

UTLRA 

CHARACTER  STRING  MANIPULATION 

CCAT4 (e) 

UTLRA 

CHARACTER  STRING  MANIPULATION 

CDTODD 

UTLRA 

DATE  MANIPULATION 

CEQ 

UTLRA 

CHARACTER  STRING  MANIPULATION 

CFINIT 

UTLRA 

INITIALIZATION 

CHASH 

UTLRA 

SORTING  SEARCH  ING 

CHASHV 

UTLRA 

SORTING  SEARCHING 

CHNALO 

UTLRCHN 

CHARACTER  STRING  MANIPULATION 

CHNDEA 

UTLRCHN 

CHARACTER  STRING  MANIPULATION 

CHNFRE 

UTLRCHN 

CHARACTER  STRING  MANIPULATION 

CHNINI 

UTLRCHN 

CHARACTER  STRING  MANIPULATION 

QF 

UTLRCI 

CHARACTER  STRING  MANIPULATION 

CKDATE 

UTLRd 

DATE  MANIPULATION 

CROAT I 

UTLRCI 

DATE  MANIPULATION 

CNTINU 

UTLRd 

USER  INTERACTION 

CPUTIM 

UTLRCI 

OPERATING  SYSTEM  INTERFACE 

CRNGI 

UTLRd 

DATA  RANGE  CHECKING 

CRNGI4 

UTLRd 

DATA  RANGE  CHECKING 

CS  IN  IT 

UTLRCS 

STACK  DATA  TYPE 

CSPOP 

UTLRCS 

STACK  DATA  TYPE 

CSPOPR 

UTLRCS 

STACK  DATA  TYPE 

CSPSH 

UTLRCS 

STACK  DATA  TYPE 

CSPSH2 

UTLRCS 

STACK  DATA  TYPE 

CSPSHL 

UTLRCS 

STACK  DATA  TYPE 

CSRO 

UTLRCS 

STACK  DATA  TYPE 

CSRD2 

UTLRCS 

STACK  DATA  TYPE 

CSROL 

UTLRCS 

STACK  DATA  TYPE 

CVTDAT 

UTLRCV 

DATE  MANIPULATION 

DATEMK 

UTLRCV 

DATE  MANIPULATION 

DATEP1 

UTLRCV 

DATE  MANIPULATION 

DATSTR 

UTLRCV 

DATE  MANIPULATION 

DCLRFy 

UTLRCV 

DATE  MANIPULATION 

DDATE 

UTLRCV 

DATE  MANIPULATION 

DDTOCD 

UTLRCV 

DATE  MANIPULATION 

DDTOID 

UTLRCV 

DATE  MANIPULATION 

DEARLY 

UTLRCV 

DATE  MANIPULATION 

DEBUG 

UTLRCV 

DIAGNOSTICS 

DELIM 

UTLRCV 

CHARACTER  STRING  MANIPULATION 

DINDEX 

UTLRDI 

CHARACTER  STRING  MANIPULATION 

DPAUSE 

UTLRDI 

USER  INTERACTION 

DREAD  (e) 

UTLRDI 

FILE  OPEN/INPUT/OUTPUT 

DREAD 1 (e) 

UTLRDI 

FILE  OPEN/INPUT/OUTPUT 

DWRIT1  (e) 

UTLRDI 

FILE  OPEN/INPUT/OUTPUT 

WRITE 

UTLRDI 

FILE  OPEN/INPUT/OUTPUT 

EJECT 

UTLRDI 

FORMATTERS 
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Table  10-3.  General-Purpose  FORTRAN  Utilities  By  Name 


NAME 

SOURCE  FILE 

TYPE 

EL  I  MB  L 

UTLRDI 

CHARACTER  STRING  MANIPULATION 

ERLDAT 

UTLRDI 

DATE  MANIPULATION 

ERRMSG 

UTLRDI 

ERROR  MESSAGE  OUTPUT 

FDDATE 

UTLRF 

DATE  MANIPULATION 

FEXIST 

UTLRF 

FILE  OPEN/INPUT/OUTPUT 

FILCLS 

UTLRF 

FILE  OPEN/INPUT/OUTPUT 

FILOPN 

UTLRF 

FILE  OPEN/ IN  PUT/ OUTPUT 

FINMEM 

UTLRFIN 

MEMORY  MANAGER 

FLT 

UTLRF  IN 

DATA  TYPE  CONVERSION 

GDATEP 

UTLRFIN 

DATE  MANIPULATION 

GETGRP 

UTLO 

INITIALIZATION 

GETMEM 

UTLRFIN 

MEMORY  MANAGER 

GPERN 

UTLRFIN 

DATE  MANIPULATION 

I  AND 

UTLRFIN 

BIT  MANIPULATION 

IDAYS 

UTLRFIN 

DATE  MANIPULATION 

IDTODD 

UTLRFIN 

DATE  MANIPULATION 

IN  I  IOC 

UTLRFIN 

INITIALIZATION 

INIMEM 

UTLRFIN 

MEMORY  MANAGER 

IN  I  PRC 

UTLO 

INITIALIZATION 

INITIO 

UTLRFIN 

INITIALIZATION 

IOR 

UTLRFIN 

BIT  MANIPULATION 

IXSUM 

UTLRFIN 

MATHEMATICS 

JDAYS 

UTLRFIN 

DATE  MANIPULATION 

JHASH 

UTLRFIN 

SORTING  SEARCH ING 

KFIX 

UTLRK 

DATA  TYPE  CONVERSION 

LABORT 

UTLRK 

ERROR  MESSAGE  OUTPUT 

LATDAT 

UTLRK 

DATE  MANIPULATION 

LB  IT 

UTLRK 

BIT  MANIPULATION 

LETNUM 

UTLRK 

DATA  RANGE  CHECKING 

LETONL 

UTLRK 

DATA  RANGE  CHECKING 

LISTON 

UTLO 

MISCELLANEOUS 

LMONTH 

UTLRK 

DATE  MANIPULATION 

LOWERC  (e) 

UTLRK 

CHARACTER  STRING  MANIPULATION 

L  PS  END 

RECOMP 

DEVICE  CONTROL 

LPSET 

RE COMP 

DEVICE  CONTROL 

LSTRNG 

UTLRK 

CHARACTER  STRING  MANIPULATION 

LTRIM 

UTLRK 

CHARACTER  STRING  MANIPULATION 

LWARN 

UTLRK 

ERROR  MESSAGE  OUTPUT 

MABORT 

UTLRM 

ERROR  MESSAGE  OUTPUT 

MATCH2 

UTLRM 

SORTING  SEARCHING 

MATCHC 

UTLRM 

SORTING  SEARCHING 

MODCOR 

UTLRM 

MISCELLANEOUS 

MONCOM 

UTLRM 

OPERATING  SYSTEM  INTERFACE 

MPDCOD 

UTLRM 

CHARACTER  STRING  MANIPULATION 

MRKDAY 

UTLRM 

DATE  MANIPULATION 

MSTRNG(e) 

UTLRM 

CHARACTER  STRING  MANIPULATION 

MTCHOC 

UTLRM 

SORTING  SEARCHING 

NCFLW(e) 

UTLRM 

CHARACTER  STRING  MANIPULATION 

NCFW 

UTLRM 

CHARACTER  STRING  MANIPULATION 

NCSW(e) 

UTLRM 

CHARACTER  STRING  MANIPULATION 

Table  10-3.  General-Purpose  FORTRAN  Utilities  By  Name 


NAME 

SOURCE  FILE 

TYPE 

NLWFC  (e) 

UTLRM 

CHARACTER  STRING  MANIPULATION 

NSWFC(e) 

UTLRM 

CHARACTER  STRING  MANIPULATION 

NSWFW(e) 

UTLRM 

CHARACTER  STRING  MANIPULATION 

NUMASK 

UTLRM 

DATA  TYPE  CONVERSION 

NUMSFX 

UTLRM 

DATA  TYPE  CONVERSION 

NWDATE 

UTLRNW 

DATE  MANIPULATION 

NWDATU 

UTLRNW 

DATE  MANIPULATION 

NWFC(e) 

UTLRNW 

CHARACTER  STRING  MANIPULATION 

NWFSW(e) 

UTLRNW 

CHARACTER  STRING  MANIPULATION 

NWIDAT 

UTLRNW 

DATE  MANIPULATION 

PGINIT 

UTLO 

FORMATTERS 

PGRSET 

UTLO 

FORMATTERS 

PGSEND 

UTLO 

FORMATTERS 

PGWRIT 

UTLO 

FORMATTERS 

PLURAL 

UTLRNW 

DATA  TYPE  CONVERSION 

PRTHLP 

UTLRNW 

FORMATTERS 

PUTMEM 

UTLRNW 

MEMORY  MANAGER 

QSORTC 

UTLRQ 

SORTING  SEARCH ING 

QUERY 

UTLRQ 

USER  INTERACTION 

RANF 

UTLRQ 

MATHEMATICS 

RANGET(e) 

UTLRQ 

MATHEMATICS 

RANSET(e) 

UTLRQ 

MATHEMATICS 

RANST1  (e) 

UTLRQ 

MATHEMATICS 

RANTRP 

UTLRQ 

MATHEMATICS 

RDATE 

UTLEQ 

DATE  MANIPULATION 

RDFSTR 

UTLRQ 

DATE  MANIPULATION 

RDLN 

UTLO 

LINE  INPUT 

RDLNC 

UTLO 

LINE  INPUT 

RDLNCU 

UTLO 

LINE  INPUT 

READLN 

UTLRQ 

LINE  INPUT 

RTOIM 

UTLRQ 

CHARACTER  STRING  MANIPULATION 

S  CL  EAR 

RECOMP 

DEVICE  CONTROL 

S  ETC  CL 

RE COMP 

DEVICE  CONTROL 

SETLPR 

UTLRS 

DIAGNOSTICS 

SETTTY 

RE COMP 

DEVICE  CONTROL 

SLPRNT 

UTLRS 

DIAGNOSTICS 

STOPCF 

UTLRS 

MISCELLANEOUS 

STRN 

UTLRS 

DATA  TYPE  CONVERSION 

TRECOL 

UTLRS 

FORMATTERS 

TTYINI 

UTLRS 

INITIALIZATION 

UPPERC 

UTLRS 

CHARACTER  STRING  MANIPULATION 

UREAD 

UTLRS 

FILE  OPEN/INPUT/OUTPUT 

USRACT 

UTLRS 

OPERATING  SYSTEM  INTERFACE 

USRGRP 

UTLRS 

OPERATING  SYSTEM  INTERFACE 

USRINF 

UTLRS 

OPERATING  SYSTEM  INTERFACE 

U SEN AM 

UTLRS 

OPERATING  SYSTEM  INTERFACE 

UNRITE (e) 

UTLRS 

FILE  OPEN/ IN  PUT/ OUTPUT 

VSUBNI(e) 

UTLRS 

MATHEMATICS 

VSUMNI 

UTLRS 

MATHEMATICS 

XMIT/B 

UTLRX 

DATA  MOVEMENT 
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Table  10-3.  General-Purpose  FORTRAN  Utilities  By  Name 


10.1.1 


This  section  will  discuss  some  (not  all}  of  the  utility 
types  listed  in  Table  10-1.  Most  are  self-explanatory,  but  some 
exist  because  of  particular  features  of  the  HP  or  of  RELATE; 
these  features  need  to  be  elucidated. 


10.1.1.1 


Many  of  the  existing  character  string  oriented  utilities 
would  be  unnecessary  if  the  HP  3000  had  an  ANSI  1977  standard 
FORTRAN  compiler.  Concatenation  (CCAT_  routines)  would  be  done 

using  FORTRAN  syntax,  and  the  string  chain  data  type  (CHN _ 

routines)  would  be  less  necessary  because  strings  would  not  be 
limited  to  255  character  lengths.  The  various  delimit- undelimit 
utilities  wouldn't  be  needed. 


10.1.1.2 


Most  ALIAS  modules  must  work  with  dates.  The  extensive 
array  of  ALIAS  date  utilities  makes  this  a  straightforward  rather 
than  maddening  task  by  allowing  the  programmer  to  convert  between 
many  date  formats,  to  compare  dates  and  calculate  intervals,  and 
to  work  in  terms  of  periods  (months,  weeks,  years,  etc.)  as  well 
as  days. 


A  date  can  be  stored  and/or  manipulated  in  four  formats: 

1)  10-character  ASCII  (MM/DD/YYYY) ,  convenient  for  user 
i/o. 

2)  3-integer  format,  i.e.  3  two-byte  integers  each  holding 
one  of  month,  day,  year. 

3)  RELATE  double-integer  word  (D)  date  storage  format. 
RELATE  stores  a  date  in  a  double  integer  by  reserving 
ranges  of  bits  within  the  32-bit  word  for  the  month, 
day,  and  year  quantities. 

4)  "Ddate"  format.  This  is  the  date  utilities'  preferred 
format.  Stored  in  a  double  integer  word,  dates  are 
expressed  in  Julian  form  with  a  basis  date  of  31  Dec 
1600. 
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Although  the  large  variety  of  formats  may  seem  unwieldly, 
the  first  two  are  very  convenient,  and  the  last  two  are  neces¬ 
sary. 

10.1.1.3  Device  Control 

ALIAS  programs  typically  want  to  work  with  two  kinds  of 
device:  the  user's  terminal,  and  spooled  printers.  The  only 
action  supported  with  respect  to  terminals  is  a  screen-clear. 
Programs  which  require  sophisticated  screen  management  should  be 
written  in  BUILDER  if  possible. 

The  screen-clear  utilities  consult  the  contents  of  the 
TTYTYP  parameter  on  the  User  Environment  Parameters  menu  of  the 
Command  System  every  time  a  clear  is  requested.  They  contain 
hard-wired  logic  which  converts  the  code  names  found  there  into 
screen-clear  character  sequences.  Should  additional  terminal 
types  come  into  use  on  ALIAS,  the  code  of  these  routines  will 
need  to  be  changed. 

10.1.1.4  fil e.Qpgfl/inp.ut/ Output 

One  of  the  major  weaknesses  of  HP  FORTRAN  is  its  lack  of  an 
OPEN  statement.  Dynamic  opening  of  a  file  involves  some  very 
messy  calls  to  MPE  Intrinsic  routines.  To  make  direct  use  of 
these  avoidable,  the  f ilopn/f  ilcls  utilities  were  written. 

Filopn  takes  three  arguments:  the  unit  number  the  file  should  be 
opened  on,  a  logical  flag  which  is  returned  .true,  if  the  oper¬ 
ation  succeeded,  and  a  delimited  string  of  directives  separated 
by  commas.  Syntax  of  a  typical  filopn  call  might  be: 

CALL  filopn  {unit,  ok,  "+name«myf  il.  grp,  new,  ascii,  write, fixlrecs+") 

which  requests  creation  of  a  new  ascii  fixed  record  length  file 
in  the  .grp  group  named  nyfil. 


Table  10-4  gives  all  directives  that  filopn  accepts. 
Filcls  requires  similar  arguments,  but  has  directive  options  of 


Table  10-4.  FILORJ  Directives 


DIRECTIVE 

DEFAULT  VALUE 

EFFECT 

NAME*  f  il  nam 
DEVICE*## 

FTN## 

Specifies  name  of  file  to  open. 

If  name  does  not  include  a  group, 
log-on  group  is  assumed. 

NEW 

OLD 

OLDTEMP 

NEW 

Use  NEW  to  create  a  new  file, 

OLD  to  open  an  existing 
permanent  file,  OLDTEMP  for  an 
existing  temporary  file. 

READ 

WRITE 

APPEND 

UPDATE 

READWRITE 

READ 

Specifies  the  types  of 
operations  you  will  be  allowed 
to  perform  on  the  file. 

EXCLUSIVE 

SHARED 

LOCKABLE 

SHARED  if  READ  LOCKABLE  applies  only  if  SHARED 
else  EXCLUSIVE  SHARED  not  recommended  when 

you  are  going  to  write  to  the 

file.  EXCLUSIVE  will  cause  an 
error  message  if  someone  else 


already  has  it  open,  but  no 
abort.  Detect  open  failure 
by  flag  returned  by  filopn. 


ASCII 

BINARY 

BINARY 

You  must  choose  the  form  of 
the  file  when  it  is  created. 
Binary  files  may  not  be  edited. 
Ignored  if  file  is  OLD. 

KSAM 

SEQUENTIAL 

SEQUENTIAL 

No  one  knows  how  to  use  KSAM. 

FIXLRECS 

VARLRECS 

VARLRECS 

Variable- length  records  save 
space,  especially  when  the  file 
is  ASCII,  but  the  editors  work 
best  with  fixed-length  records. 

RECLEN*#### 

MAXRECS*##### 

RECPBLK*### 

133 

1023 

system 

decides 

Record  length  in  bytes. 

Maximum  number  records  in  file. 
Blocking  factor. 

LABELED 

Indicates  a  labeled  tape. 

Filopn  not  so  far  used  with  tape 

SAVE,  DELETE,  and  TEMPORARY  only.  Note  that  every  filopn  call 
directive  list  except  those  including  DEVICES  must  specify  a  file 
name  and  an  access  type  (e.g.  READ  or  WRITE)  . 

Note  that  a  file  opened  as  "NEW"  will  not  in  fact  be  cre¬ 
ated  in  the  pezmanent  file  domain  until  successfully  closed  by  a 
filcls  call  with  the  "SAVE"  option. 

The  utilities  which  perform  direct-access  file  i/o  are 
convenient  because  they  automatically  perform  error  checking 
during  the  read/write,  producing  either  a  "nice"  abort  or  else 
returning  a  status  flag  to  the  caller. 

10.1.1.5  Formatters 

The  output  formatting  utilities  can  be  extremely  useful. 

The  prthlp  routine  is  used  by  the  scenario  system  for  display  of 
menus,  and  by  the  assigner  for  display  of  all  help  text.  It  is  a 
good  means  for  shoving  large  volumes  of  text  at  the  user. 

The  PG - routines  form  a  subsystem  that  can  make 

production  of  reports  much  easier  from  FORTRAN.  A  common  problem 
in  report  generation  is  the  necessity  to  count  output  lines  so 
that  page  ejects  can  be  given  at  appropriate  points,  and  so  that 
headers  can  be  written  at  the  top  of  each  page.  Also,  it  is 
often  desirable  to  prompt  the  user  before  each  page  eject  when 
output  is  going  to  the  screen.  The  PG  routines  handle  the  de¬ 
tails  of  all  of  this  for  the  programmer.  Output  can  be  generated 
and  sent  to  the  subsystem  line  by  line  with  no  worries. 

To  use  the  subsystem,  call  pginit  and  pgr  set.  Pgr  set  can 
be  called  at  any  time  to  begin  output  of  a  new  report.  Pgr  set 
wants  such  things  as  the  unit  number  of  the  output  file  or 
device,  its  record  length  and  page  length,  the  formfeed  char¬ 
acter,  and  the  mode  the  PG  subsystem  should  operate  in. 
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The  subsystem  works  by  storing  each  line  sent  to  it  in  a 
buffer  until  it  has  a  full  page.  Lines  are  sent  by  calls  to  the 
PGSEND  routine,  whose  arguments  include  a  page  header  of  as  many 
lines  as  the  developer  chooses.  Its  action  when  the  page  is  full 
depends  on  the  operating  mode.  There  are  four  mode  choices, 
specified  by  number: 

1)  PG  routines  send  output  to  unit  when  buffer  has  a  full 
page,  user  is  prompted  before  output  sent.  This  is  most 
appropriate  for  screen  output. 

2)  Same  as  1  but  output  is  continuous,  user  is  not 
prompted.  Most  appropriate  for  line  printer  output. 

3)  Same  as  2  but  the  header  (specified  as  argument  to 
PGSEND)  is  printed  only  at  the  top  of  the  first  page, 
not  at  the  top  of  every  page  as  in  1  and  2. 

4)  PGSEND  does  not  send  output  to  the  unit  automatically. 
Instead,  it  returns  a  flag  when  there  is  a  full  page  in 
the  buffer,  leaving  it  to  the  user  to  call  FGWRIT  to 
print  the  buffer  contents. 

The  variety  of  operating  modes  makes  the  subsystem 
configurable  to  most  situations. 

10.1.1.6  initializa.ti.PD 

Programs  which  intend  to  use  any  of  the  utilities  should 
always  call,  in  this  order,  the  INITIO,  INIIOC,  and  CFINIT 
initialization  routines.  These  set  certain  key  global  i/o 
variables,  mostly  unit  numbers,  which  are  relied  on  by  some 
utilities. 

The  convenience  of  using  iniprc  to  initialize  FORTRAN  mod¬ 
ules  executed  as  son  processes  was  discussed  in  Sections  8  and  9. 

10.1.1.7  Line  Input 

The  READLN  routine  MUST  be  used  to  retrieve  ALL  terminal 
input  in  System  Core  routines  which  are  to  be  serviced  by  the 
stored  commands  subsystem.  This  ensures  that  i/o  redirection 
takes  place  properly.  The  other  line-read  routines  can  be  useful 
when  processing  a  text  input  file,  since  some  of  them  will  keep  a 


running  count  of  the  number  of  lines  read  for  use  in  error  or 
progress  messages. 


10.1.1.8  stack  Data  lose 

The  stack  data  type  was  discussed  in  Section  3.1.6  and  in 
Section  8.  The  stack  utility  routines  are  currently  capable  of 
implementing  only  one  stack  per  process;  the  stack  is  reserved 
for  use  by  the  Command  System  in  the  System  Core  process.  How¬ 
ever,  extension  of  the  utilities  to  manage  multiple  stacks  would 
be  straightforward. 


10.1.2 


6EMERAL-PURPQSE  UTILITIES 


tccntrol  seg»ent»d»aint 

LOS I CAL  FUMCT IOM  ascint  (string, len  > 
int eger  len 

character^  len)  string 

£.♦.  ♦♦  ♦  ABSTRACT  ♦  ♦♦ 

CfcP OPPOSE  Checks  a  string  to  be  sure  it  contains  only  numbers. 
CtAOOIT  HISTORY 

C  MSC-arey  17-nar-B3  AUTHOR 

OttFQRHAL  PARAMETERS 

Cin  len  length  of  input  string 

Cin  string  sting  to  be  checked 

CtCOMMON  BLOCKS 

C  none 

CtCALLER  various 

CtMETHOO 

C  Makes  sure  each  byte  is  within  proper  octal  range.  Allows  a 
C  trailing  blank  for  strings  of  odd  length,  ad  a  leading  . 
OSLO CAL  VARIABLES 

C  buffer  word-aligned  version  of  input  string 


GENERAL -PURPOSE  UTILITIES 


C  ASCPRN 
Scontrol  segnent«d»aint 

LOGICAL  FUNCTION  ascprn< string, ien > 
integer  lan 

character** len>  string 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Checks  a  string  to  be  sure  it  contains  only  print  in©  chars 
CtAUOIT  HISTORY 

C  MSCarey  17-»ar-B3  AUTHOR 

CtFGRMAL  PARAMETERS 

Cin  len  length  of  input  tring 

Cin  string  string  to  be  checked 

CtCOMMON  BLOCKS 
C  none 

Cf CALLER  various 
CtMETHOO 

C  Makes  sure  that  each  byte  is  within  the  proper  octal  range. 
CtLOCAL  VARIABLES 

C  buffer  word-aligned  version  of  string 


GENERAL-PURPOSE  UTILITIES 


C  ASCREL  t********************************************* 
^control  segment ad»aint 

LOGICAL  FUNCTION  ascreK string, lenl 
integer  Ian 

character*'.  Ian.'  string 

C*  ***■  ABSTRACT  *** 

CfcPURPOSE  Checks  a  string  to  be  sura  it  contains  only  numbers  cr  . 
CtAUDIT  HISTORY 

C  MSCarey  17-nar-B3  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  lan  length  of  input  string 

Cin  string  string  to  be  checked 

CtCGMMON  BLOCKS 

C  none 

CtCALLER  various 

CtMETHOO 

C  Makes  sure  each  byte  is  within  allowed  octal  range,  or  is  a 
C  or  a 

CtLOCAL  VARIABLES 
C  buffer 


word-aligned  version  of  string 


GENERAL-PURPOSE  UTILITIES 


C-  BE  T  WM*  ************************************************ 

LOSI CAL  FUNCT I ON  be t wn< i , low,hi0h^ 

Q*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  i, lew, high 

C*  ***  ABSTRACT  *** 

CtPURPOSE  betwn  ■-»  lew  <*  i  <*  high 
CtAUOIT  HI STONY 

C  Qenenere  04-Feb-B3  AUTHOR 

CtTYPE  wise,  utility 

C1FQRMAL  PARAMETERS 

Cin  i, lew, high  *2  integers  for  function 

Gtt 


GENERAL-PURPOSE  UTILITIES 


C  CCAT24****-*-*'******-***'*'**4*4*'*4*  »««««»♦«»  **+*+.*****.++.<■.*+. 

SCQNTROL  check»2 

SUBROUTINE  ccat2<  si , lenl , s2 , len2 , sr , lenr ,mlenr  ) 

C«  ***  FORMAL  PARAMETER  DECLARATIONS 

INTEGER  lenl , len2 , lenr , mi enr 
CHARACTER4*  1  si  ( 1  enl  ) ,  s2  (1  en2  > ,  sr (  ml  enr  > 

C*  ***  ABSTRACT  *** 

CltPURPOSE  concatenates  si  t©  s2  and  returns  result  in  sr 
CtAUOIT  HISTORY 


C 

Densmcre  1 5-Dec -S2  AUTHOR 

CtTYPE 

string 

manipulation  utility 

CtFQRWAL 

PARAMETERS 

Cin 

si 

first  string,  nay  be  DTS 

Cin 

lenl 

length  in  characters  of  si 

P  i  n 

W  M  •*  •' 

s2 

second  string,  nay  be  DTS 

Cin 

len2 

length  of  s2 

Cout 

sr 

returned  string;  nay  have  sane  address  as 

Cout 

lenr 

length  of  sr 

Cin 

ml  enr 

maximum  length  allowable  for  sr 

CtHETHOO 

C  DTS  refers  to  a  Delimited  Text  String,  in  which  the  length 
C  is  determined  by  delimiters,  ©ne  before  and  ©ne  following  the 
C  intended  string.  The  delimiter  character  is  the  first  in  the  string 
C  which  is  ncnblank.-.  **abcdef»’  — >  'abcdef.  A  string  is  assumed 
C  to  be  DTS  if  and  only  if  the  length  associated  with  it  is  ZERO. 
CtLQCAL  VARIABLES 
C  b? 

C  e? 

C  1? 


beginning  position  of  (possibly  delimited)  string 
ending  position  of  (possibly  delimited*  string 
length  of  (possibly  delimited)  string 


6ENERAL-PURP0SE  UTILITIES 


C  CCAT3«*«««!*«ccatl*****««**'*  *«>*♦««  *♦*♦*«**♦*«*♦♦**♦*♦♦« 
•CONTROL  check -2 

SUBROUTINE  ccat3<  el ,  leni  ,  s2  ,  ler\2 ,  s3,  ien3,  sr ,  lenr ,nlenr  1 
C«  ««  FORMAL  PARAMETER  DECLARATIONS  *** 

INTESER  ienl , len2, len3, leni, lenr ,nlenr 
CHARACTERISE  si , s2 , s3, el, sr 

C*  ***  ABSTRACT  *■** 

CltPURPOSE  performs  sr  •• »  si  i  5  s2  s3 
CtAUOIT  HISTORY 

C  Qensncre  15-0ec-S2  AUTHOR 


CtTYPE 

string 

aanigulat isn  utility 

CtFQRMAL 

PARAMETERS 

Cin 

sN 

strings 

Cin 

lenN 

character  lengths 

Ccut 

sr 

returned  string 

Caut 

lenr 

its  length 

Cin 

Ctt 

aienr 

aaxinun  length  allowable 

SENEP.AL-PURPOSE  UTILITIES 


C  CQTODD************************************************ 
•CONTROL  check-3 

INTEGER* 4.  FUNCTION  critodri<  datstr  ) 
character* 10  datstr 

C*  ***  ABSTRACT  «** 

CtP OPPOSE  Character  Date  TO  Relate  Date.  Converts  a  character 
C  strins  of  the  Torn  MM/QQ/YYYY  to  a  1*4.  stored  as 
C  in  RELATE  fornat .  See  the  data  type  text  in  TDOATE.INCL 
CtAUDIT  HISTORY 

C  MSCarey  lS-«ar-B3  AUTHOR 

C  Qensncre  2S-Apr-S3  Moved  ?rc»  DMUTIL  to  UTILA 

CfFQRMAL  PARAMETERS 

Cin  datstr  date  string 

ctcamow  blocks 

C  none 

CtCALLER  varices 
CtMETHOD- 

C  Parses  the  string,  converts  its  parts,  and  places  it  in  storage. 
Ctt 


6ENERAL-PURP0SE  UTILITIES 


C  CEO* . . . * . 

$CONTROL  check*2 

LOGICAL  FUNCTION  ceq<  strl ,  lenl ,  str-2 ,  len2  ) 

INTEGER  lenl ,  ler>2 

CHARACTER  strl*<lenl),  str2*<len2> 

C*  ***  ABSTRACT  *** 

CfPURPOSE  compares  two  strings,  padding  on  the  right  with  blanks 
C  since  HP’s  Fortran  does  string  comparisons  differently 

CtAUDIT  HISTORY 

C  MSCarey  2-Feb-83  AUTHOR 

C3TYPE  character  utility 
CSFORMAL  PARAMETERS 

Cin  strl  left  character  string  in  comparison 

Cm  lenl  length  of  strl 

Cin  str2  right  character  string 

Cin  len2  length  of  str2 

C#C0MM0N  BLOCKS 

C  none 

C1METHOD 

C  one  line  routine,  necessary  because  HP  will  not  consider 
C  two  identical  strings  of  different  length  to  be  equal. 

C  Assumes  that  both  strings  are  left-justified. 


6ENERAL-PURP0SE  UTILITIES 


C  CFINIT************************************************ 
$CONTROL  SEGMENT*MENU 
SUBROUTINE  cfinit 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Command  Files  INITialize.  Initializes  comcfl  common 

C  block  switches  to  false. 

CSAUOIT  HISTORY 

C  MSCarey  14-FEB-83  AUTHOR 

CttFORMAL  PARAMETERS 
C  NONE 

C«C0MM0N  BLOCKS 

Cout  comcfl  command  file  facility  switches  and  io  assignments 

CtCALLER  mnurun 

CfMETHQD 

C  Assignment  statements. 

CtLOCAL  VARIABLES 
C  none 

C## 


10-33 


GENERAL-PURPOSE  UTILITIES 


C  CHASH* . . . ****** . «••••••«••••** 

SCONTROL  check»3 

SUBROUTINE  chash<a,  1 en, knax, nrec, k, am in,anax,  ihfnh  > 

O  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

INTEGER  len, knax , nrec , k , nh ,  ih<nh) 

CHARACTERS  len  >  a(  knax ,  nrec  ) ,  amin,  anax 
C*  ***  ABSTRACT  *** 

CtPURPOSE  Returns  the  sorted  order  of  the  char  records  A  bas 
CtAUDIT  HISTORY 


based  on  row 


C  Densnore 

CtTYPE  Sort  utility 
CfFQRMAL  PARAMETERS 
Cin  a  the 

Cin  len  the 

Cin  knax  the 


1 9-Jun-83  AUTHOR 


Cin 

Cin 

Cin 

Cin 

Cin 

Cin 

Cout 

C 

C 

c 

c 

c 

c 

c 


the  array  of  nrec  records,  each  of  length  knax 
the  nunber  of  chars  in  each  elenent  of  each  red 
the  nunber  of  elenents  in  each  record 
the  nunber  of  records 

the  elenent  of  each  record  on  which  to  sort 
a  lower  bound  on  the  values  a(k,») 
an  upper  bound  on  the  values  a(k,*) 
the  sorted  order  of  the  records  contained  in  a, 
based  on  the  elenent  k  in  each  record.  That  is, 
ih< 1  )  contains  the  nunber  of  the  record  which 
appears  first  when  they  are  given  in  order;  i h  <  2  > 
contains  the  nunber  of  the  second  record,  etc. 
the  length  of  the  array  ih.  This  nunber  nust 
obviously  be  >■  nrec;  ih  is  actually  used  as  a 
work  area  and  should  be  at  least  2*nrec,  preferably 
3*nrec . 


C  3*nrec. 

CtMETHOD 

C  Assunes  that  the  records  are  approxmately  linearly  distributed. 

C  Takes  the  value  of  each  record’s  key  and  uses  it  to  estinate  its 
C  sequence  nunber,  placing  that  record’s  index  nunber  in  the  ih 
C  elenent  corresponding  to  that  sequence  nunber.  This  is  repeated 
C  for  each  record,  resolving  collisions  as  required.  If  only  a 
C  few  collisions  need  to  be  resolved  this  is  a  nearly  linear  ordei — 
C  mg  algorithn.  At  the  end  the  nonzero  (unfilled)  elenents  of  the 
C  ih  array  are  renoved  and  the  filled  elenents  left  shifted  so  that 
C  the  first  nrec  elenents  of  ih  give  the  ordering  infornation. 
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C  CHASHU**** ******************************** ************ 

SCONTROL  check-2 

REAL  FUNCTION  chashv<s,m) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  n 
CHARACTER* 1  s(n) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Returns  hash  value  from  short  char  string  for  chash 
CSAUOIT  HISTORY 

C  Densmore  20-Jun-83  AUTHOR 

CtTYPE  sort  utility 

CfFORMAL  PARAMETERS 

Cin  s  the  character  string 

Cin  m  its  length 

C#CALLER  chash 
CtMETHOD 

C  Pretends  each  character  is  a  base-128  digit;  assumes  blank 
C  padding  exists  in  s  and  that  m  has  the  same  positive  value  for 
C  every  call  from  a  given  invocation  of  chash. 

C## 
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C  CHNALO* ****** ****** . ******** . •  ••• 

SCONTRQL  check-3 

INTEGER  FUNCTION  chnalo(chn) 

PARAMETER  nhd-2 
INTEGER  chn(nhd) 

CfPURPOSE  allocates  from  chain  system.  See  chnini. 
Ct# 


C  CHNDEA******* ********************************** ******* 

SCONTROL  check-3 

SUBROUTINE  chndea( chn , i tern  ) 

PARAMETER  nhd-2 
INTE6ER  chn< nhd  ) , i ten 

CtPURPOSE  deallocates  item  back  into  available  area  of  chain 
C  system.  See  chnini. 

C## 


C  CHNFRE******************** ******** ******************** 

SCONTROL  check-3 

LOGICAL  FUNCTION  chnfre< chn , i tern  ) 

PARAMETER  nhd-2 
INTEGER  chn< nhd  ) , i tern 

C#PURPQSE  checks  availability  of  item  in  chain.  See  chnini. 


6ENERAL -PURPOSE  UTILITIES 


C  CHNINI . * . * . * . . . 

$CONTROL  check-3 

SUBROUTINE  chnini(chn, size, nitems  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  size, nitems ,chn< size  ) 

C*  ***  ABSTRACT  *** 

C4PURP0SE  initializes  chain  allocation  system 
CfAUOIT  HISTORY 

C  Oensmore  09-Dec-82  AUTHOR 

C#TYPE  chain  utility 
CSFORMAL  PARAMETERS 

Cout  chn  chain  array  of  length  nitems+2;  the  first  word 

C  contains  a  copy  of  nitems,  the  second  contains 

C  the  address  of  the  first  available  item  value. 

C  The  next  is  initialized  to  the  first  item  value. 

Cin  size  the  length  of  the  chn  array 

Cin  nitems  the  number  of  items  to  be  chained 

CSMETHOD 

C  For  a  call  CALL  chnini < chn, size, nitems  ) ,  this  routine  initializes 

C  the  chn  array  so  that  it  contains  (nitems, 1,  1,2, 3, 4 . nitems) 

C  Accompanying  this  routine  are  three  others^  chnalo  to  allocate 
C  new  item  values,  chndea  to  deallocate  item  values  by  name,  and 
C  chnfre  to  verify  that  an  item  value  is  free  (not  normally  needed 
C  by  the  "outside  world".  Once  an  item  value  is  allocated,  the 
C  idea  is  that  the  item  value  is  never  again  returned  by  chnalo 
C  unless  at  some  future  time  that  item  value*  is  deallocated.  These 
C  routines  can  be  used  in  conjunction  with  a  doubly  dimensioned 
C  array  which  the  item  values  may  then  serve  as  indexes. 

C 

C  Cham  initialization:  CHNINKchn,  size,mtems  ) 

C  Chain  allocation;  CHNALO(chn)  integer  fen  returns  item  value 

C  Chain  deallocation;  CHNDEA( chn, item  ) 

C  Chain  free  item  test;  CHNFRE(chn, item )  logical  fen 
C  returns  true  if  item  is  available  for  allocation 
C 

Ct# 
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C  CIF**** . **************************** . *.** 

SCONTROL  check»2 

LOGICAL  FUNCTION  ci f ( strl , lenl , str2 , len2  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

INTEGER  lenl , len2 

CHARACTER  strl*(lenl),  str2*< len2 > 

C*  ***  ABSTRACT  *** 

CiPURPOSE  performs  complete  blank  strip  on  both  strings;  then  compares 
Cf AUDIT  HISTORY 

C  Oensmore  04-Feb-83  AUTHOR 

CiTYPE  character  utility 
CiFQRMAL  PARAMETERS 

Cin  str?  the  strings  to  compare 

Cin  len?  the  lengths  of  each  string 

CtLOCAL  VARIABLES 
C  1ft?  leftmost  nonblank 

C  lgth?  length  between  leftmost  and  rightmost  nonblank 
Ci# 
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C  CKDATE*** ********* . *♦**#*♦**«* . *♦** 

SCONTROL  check*2 

LOGICAL  FUNCTION  ckdate< string, length > 
integer  length 
character** length )  string 

C*  ***  ABSTRACT  *** 

CtPURPQSE  Checks  that  string  is  valid  character  representat ion  of  a  date 
CfAUOIT  HISTORY 

C  MSCarey  17-mar-83  AUTHOR 

C  Oensmore  Z8-Apr-83  Extensive  nod  to  check  date 

C  Oensmore  14-0ct-83  change  lmonth  data  to  Fn  ckdati 

C#F0RMAL  PARAMETERS 

Cin  length  length  of  input  string 

Cin  string  string  to  be  checked 

CtCALLER  various 
C#METH0D 

C  First  checks  that  all  characters  in  the  string  are  blanks, 

C  digits,  or  slashes;  further  that  there  are  exactly  two  slashes. 

C  Then  the  respective  numbers  are  checked  for  validity. 

C*# 
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C  CKQATI******* . ********** . ****** 

LOGICAL  FUNCTION  ckdat i< Month, day , year  ) 

INTEGER  month, day, year 

CtPURPOSE  Finishes  work  of  ckdate;  separate  entry  point  in 

C  case  the  work  needs  to  be  done  from  the  intermediate 

C  step  of  (mm,dd,yy) 

COAUTHOR  Densmore  14-0ct-1983 
C#F0RMAL  PARAMETERS 

Cin  month, day ,year  -  INTEGER  input  date  to  check 

CFunction  ckdati  -  L06ICAL  true  if  date  is  a  valid  one 

C#i 
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C  CNTINU . * . * . . 

SCONTROL  segment *980’ 

SUBROUTINE  cntinu 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Pauses  execution  until  user  hits  return. 

C  Main  use  is  ensuring  that  error  messages  stay  on  screen. 
C  USES  READLN,  requires  cfinit  call  befor  usage. 

CtAUDIT  HISTORY 

C  MSCarey  14-dec-83  AUTHOR 

CfFORMAL  PARAMETERS 
C  none 

C4C0MM0N  BLOCKS 

Cin  ioc  system  io  units 

CfCALLER  various 

CtMETHOD 

C  fortran  write;  call  to  readln  for  read 
CfLOCAL  VARIABLES 
C  line  readln  argument 

C  eof  readln  argument 

C** 
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C  CPUTIM . ** . ••••••••« . ****** 

REAL  FUNCTION  cput im( dummy > 

c#  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTESER  dummy 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Returns  a  CPU  second  value  directly  from  the  internal  clock 
C  (value  MAY  NOT  BE  NORMALIZED  to  any  zero) 

CtAUOIT  HISTORY 

C  Oensmore  27-Qct-82  AUTHOR 

CfTYPE  Simple  function 

CfFQRMAL  PARAMETERS 
CtCOMMON  BLOCKS 

^in  dummy  not  used... just  allows  the  function  call 

Cfunct ion  cputim  output  real  valua...must  be  normalized 
C  to  be  of  use  by  saving  the  value  returned 

C  by  the  first  call. 

CfMETHOQ 

C  Calls  the  PROCTIME  intrinsic,  which  gives  a  doubleword  in  millisecs 
Cf# 
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SUBROUTINE  crngi( i , low, high, text  ) 

INTEGER  i, low, high 
CHARACTER*2S5  text 

C#PURP0SE  checks  that  low<*iOhigh  for  INTEGER*2  variables 
Cf AUDIT  HISTORY 

C  Qensmore  28-0ct-82  AUTHOR 

CtFQRMAL  PARAMETERS 

Cin  i  value 

Cin  low  lowest  possible  value 

Cin  high  highest  possible  value 

Cin  text  delimited  text  string  giving  caller,  etc. 

C## 
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C  CRNGI4*** . * . ****«••«•• . «••••»«•*» . 

SUBROUTINE  crngi4<  i  ,  low, high,  text  > 

INTEGER*4  i, low, high 
CHARACTER»255  text 

CtPURPOSE  checks  thet  louK“i<!*high  for  INTEGER*2  variables 
C#AUDIT  HISTORY 

C  Oensmore  28-Oct-82  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  i  value 

Cin  low  lowest  possible  value 

Cin  high  highest  possible  value 

Cin  text  delimited  text  string  giving  caller,  etc. 

C  tt 
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C  . . . . ******** . . 

SUBROUTINE  csinit 

CfPURPOSE  command  stack  initializer 

C  the  routines  documented  here  handle  a  command  stack  used  to  implement 
C  recursive  commands. 

CtAUTHOR  Kerchner  December  14,  1981 
CfTYPE  Command  Stack  Utility 
CiFORMAL  PARAMETERS 

Cm  n  i*2  number  of  item  referred  to  on  stack 

Cin  ni  i*2  number  of  items  referred  to  in  an  array  of  it 

Cin  item  i*4  item  to  be  pushed  onto  top  of  stack 

Cio  array  i*4  list  of  items  pushed  onto  or  read  from  stack 

CtROUTINE  DEFINITIONS 

C  n;  int*2  length  a=  typeless*4  item  A--  typeless*4  array 

C 

C  SUBROUTINE  csinit  -  initializes  command  stack  system 

C  SUBROUTINE  cspop(n)  -  pops  n  items  off  stack  ( w/  no  read) 

C  SUBROUTINE  cspopr<n,A)  -  pops  n  items  off  stack  into  array  A 

C  SUBROUTINE  cspsh<a)  -  pushes  the  item  a  onto  the  stack 

C  SUBROUTINE  cspsh2<a2)  -  pushes  int*2  item  a2  onto  stack 

C  SUBROUTINE  cspshi<n,A>  -  pushes  the  n  items  in  A  onto  stack 

C  INTEGER*4  FUNCTION  csrd(n)-  returns  the  n'th  item  on  the  stack; 

C  n«l  yields  the  top  of  the  stack 

C  INTEGER*2  FUNCTION  csrd2< n )-returns  n’th  item  as  a  *2  integer 
C  SUBROUTINE  csrdl(n,A)  -  returns  to  array  A  the  top  n  items 
C 

C  cspsh,  cspsh2,  and  cspshl  will  overflow  if  stack  array  lacks  room. 

C  cspopr,  card,  csrd2,  and  csrdl  will  underflow  if  too  many  items  read. 
C  Subroutine  cspop  never  underflows. 

Ctt 


GENERAL-PURPOSE  UTILITIES 


C  CSPOP**** ******************* ****** ******************* ****** 

SUBROUTINE  cspop(n) 

INTEGER  n 

CfPURPOSE  pops  n  items  off  stack;  see  csinit  for  complete  documentation 
CfAUTHOR  Kerchner  December  14,  1981 
CfTYPE  Command  Stack  Utility 
Cff 


C  CSPOPR* ****** ********** *************************** ********* 

SCONTROL  check-2 

SUBROUTINE  cspopr( ni , array  ) 

INTEGER  ni 
INTEGER*4  array(ni) 

CfPURPOSE  pops  ni  items  off  stack  into  array,  complete  doc  in  csinit 
Cf AUTHOR  Kerchner  December  14,  1981 

CfTYPE  Command  Stack  Utility 
Cff 


C  CSPSH*********************** *****************  ************** 

SCONTROL  check-2 

SUBROUTINE  cspsh(item) 

INTEGER*4  item 

CfPURPOSE  pushes  item  onto  top  of  stack,  complete  doc  in  csinit 
C4AUTH0R  Kerchner  Oecember  14,  1981 
CfTYPE  Command  Stack  Utility 
Cf# 


C  CSPSH2 *******  *************************  *************  ******** 

SCONTROL  check-2 

SUBROUTINE  cspsh2( item2  ) 

INTEGER*2  item2 

CfPURPOSE  pushes  item2  onto  top  of  stack,  complete  doc  in  csinit 
Cf AUTHOR  Densmore  3  Feb  1983 

CfTYPE  Command  Stack  Utility 

Cff 
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C  CSPSHL****** *******************  ************ . *********** 

SCQNTRQL  check-2 

SUBROUTINE  cspshl ( ni , array > 

INTEGER  ni 

INTEG£R*4  array(ni) 

CltPURPOSE  pushes  ni  items  in  array  onto  stack,  complete  doc  in  csinit 
CftAUTHOR  Kerchner  December  14,  1981 
CltTYPE  Command  Stack  Utility 
C## 


C  CSRD******************** ***************************  ******** 

SCONTROL  check-0 

INTEGER*4  FUNCTION  csrd(n) 

INTEGER  n 

CltPURPOSE  returns  n’th  item  on  stack: 

C  see  csinit  for  complete  documentation. 

COAUTHOR  Kerchner  December  14,  1981 
CltTYPE  Command  Stack  Utility 

C## 


C  CSR02********************** ******************** ************ 

INTEGER*2  FUNCTION  csrd2(n) 

INTEGER  n 

CltPURPOSE  returns  n'th  item  on  stack,  assuming  it  to  be  a  *2  int; 
C  see  csinit  for  complete  documentation. 

CfAUTHOR  Oensmore  3  Feb  1983 
CltTYPE  Command  Stack  Utility 

Ctt 


C  CSROL******************* ******  ***************************** 
SCONTROL  check-2 

SUBROUTINE  csrdl ( ni , array  ) 

INTEGER  ni 
INTEGER*4  arra y(m> 

CltPURPOSE  reads  top  ni  items  on  stack,  nondes true t i vel y . 

C  Complete  doc  in  csinit. 

CltAUTHQR  Kerchner  Oecember  14,  1981 

CfTYPE  Command  Stack  Utility 

C## 
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C  CUTDAT* ************ *******  ******  ************ 

SCONTROL  SEGMENT-MENU 

SUBROUTINE  CUTDAT  < INSTR  , IM , ID , I Y , ERR  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

% INCLUDE  INCPAR 

CHARACTER  INSTR  *LLINE 
LOGICAL  ERR 
INTEGER  IM , ID , IY 

C*  *♦*  ABSTRACT  *** 

CttPURPOSE  decades  string  of  form  'manth/day/year ' , 

C  where  year  is  specified  as  1982  for  example, 

C  into  IM-month,  10-day,  IY-year. 

C 

C4AUDIT  HISTORY 

C  MEMutchler  17  JAN  83  AUTHOR 

C  MEMutchler  7  FEB  83  TESTER  ( program  tstdat  ) 

CfTYPE  mnurun  utility 

CfFORMAL  PARAMETERS 

Cin  instr  date  string  of  form  mm/dd/yyyy 

Cout  lm  month  from  1  to  12 

Cout  id  day  from  1  to  32 

Cout  iy  year  as  in  1983 

Cout  err  true  iff  string  not  of  correct  form 

CfcCOMMON  BLOCKS 

Cin  incpar  global  parameter  statements 

CfCALLER  dpmenu 

CfMETHOD  split  ’string’  into  month,  day,  and  year  pieces 

C  by  keying  on  ’/*,  the  delimeter,  and  convert  them 

C  to  their  integer  values. 

CftLOCAL  UARIABLES 
C  string  local  of  instr 

C  lenstr  length  of  ’string’  in  non-blank,  characters 

C  delim  character  representat ion  of  ’/’ 

C  piece  character  string  holding  piece  to  be 

C  converted  to  integer. 

C  U 

C*  ***  INCLUDES  and  LOCAL  DECLARATIONS  *** 

INTEGER  LENSTR  ,  I 

CHARACTER  PIECE*4,  DELIM*1 ,  STRING*LLINE 
OATA  OELIM/V’/ 

C*END0EC 


***  END  DECLARATIONS  »** 
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C  OATEMK  **********************************  *************** 

^CONTROL  check-3 

SUBROUTINE  datemk<  imark , month , day , year  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER*4  mark 
INTEGER  month , day , year 

C*  ***  ABSTRACT  *♦* 

C4PURPQSE  Given  a  mark  day  (mrkday),  returns  date  (mrkday’s  inverse) 
CtAUDIT  HISTORY 

C  Densmore  31-May-83  AUTHOR 

CtTYPE  date  utility 

CtFORMAL  PARAMETERS 

Cin  imark  input  mark  day  —  number  of  days  since  31-Dec-1G00 

Cout  month  month  corresponding  to  mark  day  (1-12) 

Cout  day  day  corresponding  to  mark  day  ( 1-31 ) 

Cout  year  year  corresponding  to  mark  day 


Cout  month 

Cout  day 

Cout  year 

C#CONSTANTS 
C  mark 

C  mark 

C  mark 


mark  for  31-Qec-1600  is  defined  to  be  zero 

mark  for  31-0ec-2399  is  the  max  allowable:  maxmrk-291828 

mark  for  31,-0ec-1999  is  mk  1999- 14-5731  —  year  2000  is  the 

only  century  leap  year 

mark  for  31-Dec-2000  '  i s  mk2000-14S097  —  same  comment 

number  of  days  from  31-Oec-NN00  to  31-Dec-< NN+1  )00 

is  ndl00-3B524 

number  of  days  in  a  4-year  period  is  nd4-14Gl 


10-49 


,1"  '".'V  ^7TT,*r*r 


tt  rr  »■  v^"r»; 


nr’nr 


6ENERAL-PURPQSE  UTILITIES 


C  0ATEP1**** 
®C0NTR0L  check-3 


SUBROUTINE  datepl<  m,  d,y  ) 

C*  ***  FORMAL  PARAMETER 

INTEGER  m,d,y 
C* 

C#PURP0SE  adds  one  day  to  the  date 
CtAUOIT  HISTORY 

C  Densmore  01-Jun-83  AUTHOR 

CtTYPE  date  utility 

CfFORMAL  PARAMETERS 


DECLARATIONS 
***  ABSTRACT 


*#« 


*#* 


Cin/out 

Cff 


n ’ d » y  "°"th  1 1. .12  >,  day< 1 . . 31 ) ,  year  incremented 


| 
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c  DATSTR***************** *********************** ******** 

SUBROUTINE  datatr( string ) 
character*8  string 

C*  ***  ABSTRACT  *** 

CtPURPOSE  returns  current  date  as  MM/DD/YY 
Cf AUDIT  HISTORY 

C  MSCarey  02-feb-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cout  string  see  purpose 

CtCOMMON  BLOCKS 

C  none 

CfCALLER  various 

C*METHOO 

C  Calls  system  intrinsic  dateline  and  decode  char  month  to  num 
C#LQCAL  VARIABLES 

C  bytara  argument  for  intrinsic  call 

C  month  holds  strings  for  comparison  against  bytara 

C  mnum  number  of  the  month  returned  by  dateline 

C** 
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C  DCLRFY**** . **#***♦*♦*# . ******** 

SCONTROL  check-3 

INTEGER*4  FUNCTION  dclrfy< rawdat > 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER»4  rawdat 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Clarifies  a  raw  RELATE  DDATE.  See  explanation 
C  given  in  the  data  type  include  file  TDDATE 

C4AUDIT  HISTORY 

C  Oensmore  2G-Apr-83  AUTHOR 

C4TYPE  Date  utility 

CfFQRMAL  PARAMETERS 

Cin  rawdat  raw  date  in  RELATE  format 

C  Bits  Ll-12-year,R0-3-month,R4-8-day 

C4CALLER  various 
CfMETHQO 

C  zeros  the  unused  bits:  L0,  L13-15,  R9-15 
Ct# 
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c  ddate********* . * . ********** . * . 

SCONTROL  check*3 

INTEGER*4  FUNCTION  ddate(dum) 
integer  dun 

C*  ***  ABSTRACT  *** 

C4PURP0SE  Returns  the  current  date  in  RELATE  1*4  format,  which 
C  is  year  in  bits  1-12  of  left  word,  month  in  0-3  of  right  word, 

C  day  in  4-8  of  right  word,  and  all  other  bits  unused. 

C  See  the  documentation  on  the  data  type  ODATE  in  TDDATE.INCL. 
CtAUDIT  HISTORY 

C  MSCarey  28-feb-S3  AUTHOR 

C  Densmore  26-Apr-83  Moved  from  DMUTIL  to  UTILA 

C  and  fixed  LEAP  YEAR  part 

C  Densmore  14-0ct-83  Changed  lmonth  data  to  function 

C4F0RMAL  PARAMETERS 

Cin  dum  dummy 

CfCOMMON  BLOCKS 

C  none 

C4CALLER  various 

CtMETHOD 

C  Calls  calendar  intrinsic,  converts  to  month-day-year ,  and  packs 
C  output  variable. 

C4L0CAL  UARIABLE5 


C 

date 

date  as  returned  by  intrinsic 

c 

year 

year 

c 

days 

day  in  year 

c 

td 

a  running  total  of  days 

c 

month 

month  of  year 

c 

dayom 

day  of  month 

Ctt 
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C  DOTOCO****************** ************* . ♦♦«.******* 

SCONTROL  check-3 

CHARACTER* 10  FUNCTION  ddtocd( ddate  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

INTEGER*4  ddate 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Converts  a  DDATE  into  a  string  MM/DD/YYYY 
C  See  the  include  file  TDDATE-INCL  describing  data  type 

C4AUDIT  HISTORY 

C  Oensmore  2S-Apr-83  AUTHOR 

C4TYPE  Date  utility 

CfFORMAL  PARAMETERS 

Cin  ddate  a  DOATE  as  described  in  TDDATE.INCL  — 

C  it  is  in  RELATE  format  Bits  Ll-12*year 

C  Bits  R0-3-Month,  and  Bits  R4-8-Day 

CtCALLER  various 
C4METH0D 

C  unpacks  ddate  and  encodes  string 


GENERAL-PURPOSE  UTILITIES 


C  ODTOIO** . ***** . ************* . ••*•**•• 

SCONTROL  check*3 

SUBROUTINE  ddtoid( ddate, month, day , year  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

INTE6ER*4  ddate 
INTEGER  month, day .year 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Converts  a  DDATE  into  a  string  MM/DD/YYYY 
C  See  the  include  file  TDDATE.INCL  describing  data  type 

C  It  AUDIT  HISTORY 

C  Densmore  26-Apr-83  AUTHOR 

CtTYPE  Oate  utility 

CtFORMAL  PARAMETERS 

Cin  ddate  a  DDATE  as  described  in  TDDATE.INCL  — 

C  it  is  in  RELATE  format:  Bits  Ll-12*year 

C  Bits  R0-3“Month,  and  Bits  R4.-8*Day 

Cout  month  the  integer  month  given  in  ddate  Cl.. 121 

Cout  day  the  integer  day  Cl.. 311 

Cout  year  the  integer  year  ( ie.  1983) 

CtCALLER  various 
Ctt 
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C  DEARLY  . . ******* . . . 

SCONTROL  check-3 

LOGICAL  FUNCTION  DEARLY  ( FRSTOAT , LASTDAT ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER**  FRSTOAT, LASTDAT 

C*  ***  ABSTRACT  *♦♦ 

CfPURPOSE  True  if  first  date  earlier  than  last  date.  Clarifies. 
CtAUOIT  HISTORY 

C  Mutchler  ! d-nmm-yy  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  frstdat  first  date 

Cin  lastdat  second  date 

C*COMMON  BLOCKS 

C  NONE 

CtCALLER  FLREPT  ANO  BGREPT 

C#METHOD 

C  DOES  A  CLARIFY  ANO  THEN  USES  TODATE  ROUTINES 
CtLOCAL  VARIABLES 
C  datfrst  flag 

C## 
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C  DEBUG . * . * . * . * . . 

SCQNTRQL  check-3, SEGMENT-utlr 

LOGICAL  FUNCTION  debug* idum) 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  idum 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Checks  lprnton  job  control  word  to  see  if  in  debug  node. 
C#AU0IT  HISTORY 

C  MSCarey  28-jul-84  AUTHOR 

CfTYPE  utility 

CtFORMAL  PARAMETERS 

Cin  idum  dummy  parameter  to  meet  HP  calling  standards 

CfCOMMON  BLOCKS 

C  none 

CtCALLER  various 

C4METH0D 

C  Use  the  findjcu  system  intrinsic  to  read  the  lprnton  job 
C  control  word.  If  it  is  1,  debug  is  true. 

CtLOCAL  VARIABLES 

C  jcunam  name  of  jew  to  read 

Ct# 
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C  DELIM**** *********** . **** . * . . 

^CONTROL  check*2 

SUBROUTINE  delim<  string, first , last , length  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

PARAMETER  m-1024 
CHARACTER*!  string(m) 

INTEGER  f irst , last , length 

C*  ***  ABSTRACT  *** 

CfPURPOSE  to  discover  the  extent  of  a  delimited  text  string 
CtAUDIT  HISTORY 

C  Densmore  27-Cct-82  AUTHOR 

CtTYPE  Simple  subroutine 
CfFORMAL  PARAMETERS 

Cin  string  delimited  text  string  —  the  text  is  delimited 

C  by  a  unique  character  occurring  before  and  after. 

C  first  location  after  first  nonblank  char  in  string 

C  last  location  before  second  occurrence  of  delimiter 

C  length  the  number  of  characters  in  the  enclosed  string 

CfMETHOD 

C  Uses  the  HP  Fortran  byte  addressing  capability  to  locate 
C  the  first  nonblank  character,  then  the  second  occurrence 
C  of  the  delimiter.  Note  that  the  input  string  may  be  any 
C  length  up  to  m  characters. 

C*f 
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C  OINDEX  *********************************************** 

$control  check*2 

INTEGER  FUNCTION  dindex( string, lstr.substr, Isub  ) 
character*!  string( 255  ) , substr<  255  > 
integer  lstr,lsub 

C*  ***  ABSTRACT  *** 

CfPURPOSE  A  version  of  HP  function  ’index*  for  delimed  srch  str 
Cf AUDIT  HISTORY 

C  MSCarey  09. may. 83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  string  possibly  delimited  string  to  look  for  substring  in 

Cin  substr  substring  to  look  for  in  string 

Cin  lstr  length  of  string 

Cin  lsub  length  of  substring 

CtCOMMON  BLOCKS 

C  none 

CtCALLER  various 

CtMETHOD 

C  Loop  over  string,  looking  for  a  match 
C## 
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C  DPAUSE****** ************************************ ****** 

SCONTROL  check-3 

SUBROUTINE  dpause(wait) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

real  wait 

C*  ***  ABSTRACT  *** 

C#PURPOSE  Causes  process  to  pause  wait  seconds. 

CtAUDIT  HISTORY 

C  MSCarey  10-dec-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  wait  number  of  seconds  to  pause 

CfCOMMQN  BLOCKS 
CfCALLER  various 
CtMETHOD 

C  Calls  system  intrinsic  pause. 

CfLOCAL  VARIABLES 
C  none 

C«# 


GENERAL-PURPOSE  UTILITIES 


C  EJECT* *************************** ********** *********** 

SCONTROL  check»3 

SUBROUTINE  eject(unit) 

INTEGER  unit 

C*  ***  ABSTRACT  *** 

CtPURPOSE  sends  a  page  eject  down  to  specified  unit 
CtAUDIT  HISTORY 

C  Densmore  21-Mar-83  AUTHOR 

C#TYPE  screen  utility 

CSFORMAL  PARAMETERS 

Cin  unit  logical  unit  number 

CtCOMMON  BLOCKS 

Cin  tty  terminal  parameters 

C## 
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C  ELIMBL**************************** ******************** 

SUBROUTINE  ELIMBL  ( INSTR,LSTR,OUTSTR,LOSTR  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

X INCLUDE  INCPAR 
^include  readc 

CHARACTER  OUTSTR*( LSTR  ) , INSTR*( LSTR  ) 

INTEGER  LSTR.LOSTR 

C*  **«  ABSTRACT  *** 

CtPURPOSE  eliminate  leading  and  trailing  blanks  from  a  string 
C  and  give  its  non-padded  length 

C#AUDIT  HISTORY 

C  MEMutchler  18  JAN  83  AUTHOR 

CtTYPE  character  string  utility 

C INFORMAL  PARAMETERS 

Cin  instr  text  to  be  stripped  of  leading  and  trailing 

C  blanks 

Cm  lstr  maximum  length  of  strings 

Cout  outstr  text  stripped  of  leading  and  trailing  blanks 

Cout  lostr  length  of  outstr 

CfCOMMON  BLOCKS 

Cin  incpar  global  parameter  statement 

CfMETHOO 

C  loop  through  string  and  count 
CtLOCAL  VARIABLES 

C  string  temporary  storage  of  text 

C  blank  ’  ' 

Ct* 
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C  ERRMSS*** ********** . ***** . ****** 

SUBROUTINE  ERRMSS  ( OELSTR  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

^INCLUDE  INCPAR 

CHARACTER  OELSTR*LLINE 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Takes  a  delimited  text  string  error  message  held 
C  at  delstr  and  outputs  it  to  iout 

Ct AUDIT  HISTORY 

C  MEMutchler  18  JAN  83  AUTHOR 

Cf TYPE  utility 
CSFORMAL  PARAMETERS 

Cin  delstr  delimited  text  string  to  be  output 

CfCOMMON  BLOCKS 

Cin  incpar  global  parameter  statement 

Cin  ioc  i/o  file  assignments 

CfMETHOD  Undelimit  text  string,  get  its  lenght  and  write  it. 
CSLOCAL  VARIABLES 

C  output  undelimited  text  string 

C  lenout  length  of  ’output’  in  non-blank  characters 

Ctt 
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c  FQOATE*********** ******************** ***************** 

^CONTROL  segment-asgnd, check-3 

INTESER*4  FUNCTION  fddate< ddatel , idurat > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  idurat 
INTEGER*4  ddatel 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Returns  date  of  the  first  date  in  the  period 
Cl AUDIT  HISTORY 

C  Densmore  17-Jun-83  AUTHOR 

C1TYPE  date  utility 

C1FORMAL  PARAMETERS 

Cin  ddatel  date  within  the  first  period 

Cin  idurat  duration  <of  each  period)  index 

C  1-Fyear  2-Cyear  3-quarter  4-month  5-week  6-day 

C1COMMON  BLOCKS 

Cin  tddate  ddate  data  type  block 

C1METH0D 

C  Convert,  push  back  to  period’s  start,  and  convert  back. 


GENERAL-PURPOSE  UTILITIES 


FEX 1ST******** #*♦#***##***♦*** •••••< 
LOGICAL  FUNCTION  fexist< filnam, len ) 
integer  len 

character*( len )  filnam 


***  ABSTRACT  ♦** 


C1PURPOSE  Returns  true  if  the  given  file  already  exists  as  a 
C  permanent  file. 

CtAUDIT  HISTORY 

C  MSCarey  28-feb-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  len  length  of  string 

Cin  filnam  name  of  file  to  check  for,  with  extents  if  any 

CtCOMMON  BLOCKS 

C  none 

CtCALLER  various 

CtMETHOQ 

C  Calls  intrinsic  fopen  specifying  file  as  old.  If  error  indicating 
C  it  doesn’t  exists  then  fexist  is  false.  Close  file  if  open  succeeds 
C  Test  is  on  both  job  temporary  file  domain  and  perm  file  domain. 
CfLOCAL  VARIABLES 

C  foptions  bit-map  argument  for  fopen 

C  aoptions  " 

C  i foptions" 

C  iaoptions" 

C  filnum  MPE  file  number  returned  by  fopen 

C  ercode  error  code  returned  by  fcheck 

C  disp  file  disposition  argument  for  fclose 

C  string  warning  message  buffer 


If  error  indicating 
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c  filcls********** . . . . . 

SUBROUTINE  f ilcls<unit ,ok,param ) 
integer  unit 
character*255  param 
logical  ok 

O  ***  ABSTRACT  *** 

CtPURPOSE  Closes  files  opened  by  filopn. 

C*AUDIT  HISTORY 

C  MSCarey  27-JAN-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  unit  fortran  logical  unit  to  be  closed 

Cin  param  delimited  string  holding  control  arguments  separated 

C  by  commas.  Options  are  limited  to  SAVE, DELETE, MEONLY 

Cout  ok  true  if  close  successful 

CfCOMMON  BLOCKS 

Cio  untref  cross  ref  of  MPE  file  number  with  fortran  unit  nuns 

CtCALLER  various 
Cf METHOD 

C  Calls  system  intrinsic  fclose. 

CfLOCAL  VARIABLES 


c 

dispos 

transfers 

file 

disposal 

status 

C 

secode 

transfers 

file 

security 

status 

c 

mesg 

holds  an 

error 

message 

C 

f  nun 

MPE  file 

number 

c 

ercode 

error  code  returned  by 

fcheck 

C## 
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C  FILOPN . * . . . 

SUBROUTINE  f  ilopn(unit  ,ok.  ,param  ) 
integer  unit 
logical  ok 
character*Z55  paran 

C*  •**  ABSTRACT  *** 


CfPURPOSE  Opens  HP  files  programmat ically . 
Of AUDIT  HISTORY 


C  MSCarey 

C#F0RMAL  PARAMETERS 


30-JAN-83  AUTHOR 


unit 

ok 


paran 


if  false, 


fortran  logical  unit  number 
flag  set  to  true  if  open  successful; 
likely  cause  is  someone  else  having  lock  or 
sole  access  to  desired  file.  More  serious  errors 
cause  abort  calls  from  this  routine, 
delimited  character  string  containing  legal 
arguments  separated  by  commas,  as  in 
’ : NAME- JUNK , NEW , ASC I , F I XL , SEQL , RECL- 1 28 , NREC- 1 000  = 

cross  ref  of  MPE  file  nums  &  fortran  logical  units 


Cin 
Cout 
C 
C 

c 

Cin 
C 
C 

C«C0MM0N  BLOCKS 
Cout  untref 

CtCALLER  various 
CfMETHOO 

C  Decodes  arguments,  checks  for  consistency,  and  calls  MPE  intrinsic 
C  FOPEN  and  fortran  library  routine  F5ET.  See  intrinsics  manual, 

C  Fortran  manual  section  8  for  more  on  these.  String  argument  is 
C  decoded  into  two  arrays,  one  holding  params  and  the  other  values 
C  attached  to  the  parameters  where  applicable.  For  each,  a  list  of 
C  legal  parameters  is  searched  for  a  match.  The  index  of  the  match 
C  is  used  as  a  reference  by  a  computed  goto  to  code  setting  parameters 
C  for  the  fopen  call.  Error  checking  is  done  after  the  FOPEN  by  a  call 
C  to  intrinsic  fcheck  to  identify  conditions  mandating  an  abort. 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


nparms  number  of  string  parameters  decoded 
foption  bit-mapped  word  for  passage  to  FOPEN 
lfoption  logical  of  this  word 
aoption  similar 
laoption 
toption 
Itoption 
mesg 
filz 
fnum 
ercode 
block 
arg 
value 
option 
name 


error  message 

file  size  as  a  double  integer,  required  by  FOPEN 

MPE  system  file  number 

error  code  returned  by  fcheck 

number  of  records  per  block 

array  holding  decoded  alpha  parameters 

array  holding  values  corresponding  to  args 

array  initialized  to  legal  arg  values 

name  of  file  to  be  opened 


oonoooo 
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Cf# 


group  group  user  is  currently  logged  onto 

filsiz  maximum  size  of  file  in  records  (block  if  fixl  > 

nparms  number  of  character  parameters  found 

recsiz  size  of  record  in  bytes 

recpbl  number  of  records  per  block 

igo  computed  goto  index 

argnum  number  of  argument  being  processed  by  goto 
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C  FINMEM  if********************************************** 
SCQNTROL  aegment*seg’ 

SUBROUTINE  f inmem( id, code  ) 

O  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  id, code 

C*  ***  ABSTRACT  *** 

CftPURPQSE  Qe-allocates  an  extended  memory  buffer. 

C* AUDIT  HISTORY 

C  MSCarey  ll-aug-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  id  operating  system  id  code 

Cin  code  id  code  supplied  by  user  to  inimem 

CfCOMMON  BLOCKS 

C8CALLER  various 

CfMETHOO 

C  Calls  freedseg 
C## 
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C  FLT** . . . * . . 

SUBROUTINE  FLT  (  BUFFER, LENBUF .ERROR, NUMBER  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  LENBUF 
CHARACTER  BUFFER  *(  LENBUF) 

REAL  NUMBER 
LOGICAL  ERROR 

C*  ***  ABSTRACT  *** 

CtPURPOSE  set  number<-rnum( buffer > ,  if  possible 
C  pointed  to  by  IPTR 

Cf AUDIT  HISTORY 

C  MEMutchler  7  FEB  83  AUTHOR 

C  MEMutchler  7  FEB  TESTER 

CtTYPE  convert  string  to  corresponding  real  value  if  possible 
CtFORMAL  PARAMETERS 

Cin  buffer  string  containing  character  version  of  real 

Cin  lenbuf  non-blank  length  of  buffer 

Cout  error  true  iff  buffer  doesn’t  contain  a  real 

Cout  number  real  number  found  in  buffer 

C*C0MM0N  BLOCKS  NONE 

CSMETHOD  determine  if  real  number  in  string,  else  err  -  true 
CtLOCAL  VARIABLES 
C  none 


GENERAL-PURPOSE  UTILITIES 


C  GDATEP . ********** . . . ********* 

4C0NTR0L  segment*asgnd,check»3 

INTEGER*4  FUNCTION  gdatep(pern, idurat , fddate  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  pern, idurat 
INTEGER*4  fddate 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Returns  the  date  of  the  first  day  in  the  pern’th  period 
CfAUDIT  HISTORY 

C  Oensmore  17-Jun-83  AUTHOR 

CtTYPE  date  utility 

CtFORMAL  PARAMETERS 

Cin  pern  period  number  to  be  converted  to  a  date 

Cm  idurat  duration  (of  each  period)  index 

C  l*Fyear  2*Cyear  3**quarter  4*month  5*week  B“day 

Cm  fddate  date  of  first  day  of  first  period 

CfCOMMON  BLOCKS 

Cm  tddate  data  type  for  RELATE  ddate 

C4METH00 

C  convert,  increment,  convert 
Ctt 
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C  SETGRP* *  +  *************  ****************  +.+.+.+. 

^CONTROL  SEGMENT  »SES  * 

SUBROUTINE  SET6P.P 

C«  *-*-*  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CtPUP.POSE  get  gr cup  name  and  name’s  length  in  which  runtime 
C  menu  system  files  should  be  located 

PtfAl  in T  T  UTCTnOV 

U  ITT  ■'V'M'4  f  r  r  *  «4*  t  wr  «  t 

0  MEMutchler  1B-MAR-B3  AUTHOR 

C-lfcTYPE  menu  system  utility 

r*cnoMAi  OAOAMCTCOC 

w  wr  *r  rr  *  r  r»  «r  t*  rw  r  t.r  <  w  '<W«  >C 

CfCOMMQN  BLOCKS 

Ccut  envirn  holds  info  about  runtime  enviorment 

C1CALLEP.  ppinii  and  inimnu 

CtMETHOD 

C  Inspect  the  proper  Job  Control  Word  flag’s 

C  value.  JCU  should  be  absent  or  0  unless  the  user 
C  has  given  the  DEUELOP  UOC  command. 

C  Set  variables  used  to  determine  which  group 

C  system  files  and  relations  are  to  be  found  in. 

r*l  nPAI  IIAOTAQI  cc 

w  *>•.  w  vr  <•»  rrrM4f  r*>  %  «-  w 

C  jcwnam  job  control  word  name 

Off 
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C  GETMEM  *********************************************** 
SCONTROL  check»2,segment-seg’ 

SUBROUTINE  get mem < id, length, source , start  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  id, length, start 
logical  source< 1 > 

C*  »**  ABSTRACT  *** 

CfPURPOSE  Swaps  data  from  extended  memory  into  source  array. 

Cf AUDIT  HISTORY 

C  MSCarey  ll-aug-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  id  operating  system  id  code  for  area 

Cin  length  number  of  *2  words  to  swap 

Cin  source  target  array  for  words 

Cin  start  starting  position  in  extended  mem  to  grab  from 

CtCQMMON  BLOCKS 

C  none 

CfCALLER  various 

C#METHOD 

C  Calls  dmovin. 

CSLOCAL  VARIABLES 
C  lid  segment  id 
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C  GPERN*** ********* . . . •••••••*••• 

$CONTROL  segment-asgnd, check-3 

INTEGER  FUNCTION  gpern< ddat el , numper , i durat , f ddat e  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  numper, idurat 
INTEGER*4  ddatei , f ddate 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Returns  period  number  given  a  RELATE  ddate 
Cf AUDIT  HISTORY 

C  Densmore  17-Jun-83  AUTHOR 

CtTYPE  date  utility 
CfFORMAL  PARAMETERS 

Cin  ddatei  the  date  to  be  converted 

Cin  numper  maximum  number  of  periods 

Cin  idurat  duration  (of  each  period)  index 

C  1-Fyear  2-Cyear  3-quarter  4-month  5-week  B-day 

Cin  fddate  date  of  the  first  day  in  the  first  period 

Cfunction  gpern  returned  period  number,  in  [0.. numper]; 

C  0  is  returned  if  ddatei  is  outside  the  range 

C  of  valid  period  numbers 

CtCOMMON  BLOCKS 

Cin  tddate  RELATE  ddate  data  type  block 

CfMETHOD 

C  Convert  dates,  take  difference.  SEE  SIMILAR  CODE  IN  ASNLBS. 
CtLOCAL  VARIABLES 

C  fm,fd,fy  month/day/y ear  of  first  period’s  first  day 

C  dm,dd,dy  month/day/year  corresponding  to  ddatei 

C  f idate/ 1 idate  first/last  indexed  period  in  absolute  time 

Ctt 
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C  I ANO***** ************* *********** ********************* 
SCONTROL  check*3 

INTEGER  FUNCTION  iand(n,n) 

INTEGER  n,n 

C  bitwise  .  ..;  uses  HP-FTN  lG-bit  exprs . . . Densnore  28  July  1983 
INTEGER  jm,jn 
LOGICAL  In,  In 

EQUIVALENCE  (jn,ln>,  (jn,ln) 

C*ENOOEC 

jn  =*  n 
j  n  »  n 

In  *  In. AND. In 
iand  »  jn 
RETURN 

C  - 

ENTRY  ior(n,n) 
jn  *  n 
jn  -  n 

In  *  In. OR. In 
land  *  jn 
RETURN 
ENO 
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C  IDAYS************************ *******************  ****** 
^CONTROL  check*3 

INTEGER  FUNCTION  idays ( ml , dl , yl ,m2 , d2 , y2  ) 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  ml ,dl ,yl,m2,d2,y2 

C»  ***  ABSTRACT  *** 

CfPURPOSE  Returns  the  *2  number  of  days  between  two  dates. 
CtAUDIT  HISTORY 

C  Densmore  04-May-83  AUTHOR 

C#TYPE  date  utility 

C#F0RMAL  PARAMETERS 

Cin  ml,di,yl  month/day/year  of  first  date 

Cin  m2,d2,y2  month/day/year  of  second  date 

CfMETHOD  Subtracts  mrkduys  (which  checks  date  validity); 

C  See  Function  JDAYS  for  an  INTEGER*4  version. 

C## 


GENERAL-PURPOSE  UTILITIES 


C  IDTOQO************************************************ 
SCONTROL  check-3 

SUBROUTINE  idtodd<  ddate , month , day , year  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTE6ER*4  ddate 
INTEGER  month , day , year 

C*  *■**  ABSTRACT  *** 

CfPURPOSE  Converts  to  RELATE  internal  DDATE  format;  see  TDDATE.INCL 
CtAUDIT  HISTORY 

C  Oensmore  ll-May-83  AUTHOR 

CtTYPE  Date  Utility 

CtFORMAL  PARAMETERS 

Cout  ddate  output  date  in  RELATE  format 

Cin  month , day , year  input  date  in  integer  form 

C#t 
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C  INIIOC ************** . * . ********** 

SCONTROL  SEGMENT-MENU 

SUBROUTINE  INIIOC 

C*  ***  ABSTRACT  *** 

CfPURPOSE  initializes  file  assignments  of  i/o  files  found  in 
C  common  /ioc/ 

CtAUOIT  HISTORY 

C  MEMutchler  18  JAN  83  AUTHOR 

C  MEMutchler  8  FEB  83  TESTER 

CfTYPE  mnugen  and  mnurun  utility 

CtCOMMON  BLOCKS 
Cout  ioc 

C# 


i/o  file  assignments 


6ENERAL-PURP0SE  UTILITIES 


C  INIMEM  *********************************************** 

SCONTRQL  aegment*seg’ 

SUBROUTINE  inimem< id, len , code , unique  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  id, code, len 
logical  unique 

C*  ***  ABSTRACT  **♦ 

CtPURPQSE  Allocates  an  extended  memory  buffer.  On  HP  3000 
C  this  means  getting  an  extra  data  segment. 


CtAUDIT 

HISTORY 

C 

MSCarey 

ll-aug-83  AUTHOR 

CfFORMAL 

PARAMETERS 

Cout 

id 

id  number  returned  for  use  by  .putmem  and 

getmem 

Cin 

code 

id  code  provided  by  user 

to  make  unique 

segment 

Cin 

len 

length  of  buffer  desired 

in  2-byte  word 

Cout 

unique 

true  if  buffer  requested 

did  not  already 

exist 

CtCOMMON 

BLOCKS 

C  i  i  i 

C#CALLER  various 
CtMETHOD 

C  Call  to  getdseg. 
C«* 
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GENERAL-PURPOSE  UTILITIES 


C  INIPRC  i.********.****************************.********** 
SCQMTP.QL  sepnent-ses’ 

SUBROUTINE  iniprc 

C*  FORMAL  PARAMETER  DECLARATIONS  ««« 

O.  444  ABSTRACT  ««« 

CtPURPOSE  initialize  nodule  PRoCess.  Does  all  necessary 
C  initialisation  for  a  nodule  son  process. 

CfAUDIT  HISTORY 

C  MSCarey  2S-jun-S3  AUTHOR 

CtFORMAL  PARAMETERS 
C- 

CfCOMMON  BLOCKS 

Ccut  pvalue  nenu  systen  paraneter  values 

CtCALLER  various 

CtMETHOO 


C  Calls  to  other  initialization  routines.  Suaps  in 
C  /scenar/ , /Iprnts/ , /ioc/ , /io/  frcn  an  extra  data 

CtLQCAL  VARIABLES 

C  nane  file  nane  Iccref .nnurel/naknenu 

Ctft 


! pvalue a/ 
egnent 
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GENERAL-PURPOSE  UTILITIES 


C  INITIO******* . * . ******** . * . 

SUBROUTINE  initio 
C 

C  Initialises  the  most  necessary  I/O  unit  numbers 
C  Note  that  this  routine  does  NOT  use  include  directives 
C  so  that  the  utility  library  need  not  be  compiled  with  INCL 
C# 
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C  IXSUM************************************************* 
SCONTROL  check-3 

INTEGER  FUNCTION  ixsun<n,v> 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *•* 

INTEGER  n 
INTEGER  v(n) 

C*  **«  ABSTRACT  *** 

CtPURPOSE  Suns  the  cross  section  vector  U  —  integer  sun 
CtAUOIT  HISTORY 

C  Densnore  17-Mar-83  AUTHOR 

C#TYPE  nanual  assigner  routine 

C#F0RMAL  PARAMETERS 
Cin  n  length  of  v 

Cin  U  vector  of  integers  whose  elements  to  sun 

C  _ n 

Cfunction  ixsun  C  / _ i-1  i 

CtCOMMON  BLOCKS 
C  none 
C## 
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C  JDAYS***** . * . . . 

$CONTROL  check*3 

INTEG£R*4  FUNCTION  j days* ml , dl , y 1 , m2 , d2 , y2 > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  ml , di , y 1 ,m2 , d2 , y2 

C*  ***  ABSTRACT  *** 

C4PURPGSE  Returns  *4  number  of  days  between  two  dates. 
C4AUDIT  HISTORY 

C  Densmore  26-May-83  AUTHOR 

CtTYPE  date  utility 

C4F0RMAL  PARAMETERS 

Cin  ml,dl,yl  month/day/year  of  first  date 

Cin  m2,d2,y2  month/day/year  of  second  date 

C4METH0D  Subtracts  mrkdays  (which  checks  validity); 

C  See  Function  IDAYS  for  an  INTEGER*2  version. 

C## 


6ENERAL-PURP0SE  UTILITIES 


c  JHASH****** ****************************** ************* 

SCONTROL  check*3 

SUBROUTINE  jhash<  a, kmax ,nrec , k , an in , a max , ih, nh  ) 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  kmax ,  nrec , k. , nh,  ih(nh) 

INTEGER*^  a( kmax , nrec > ,  amin,  amax 
C*  ***  ABSTRACT  *** 

CtPURPQSE  Returns  the  sorted  order  of  the  1*4  records  A,  based  on  row 
C#AUOIT  HISTORY 

C  Oensnore  lS-Jun-83  AUTHOR 

CfTYPE  Sort  utility 
CfFORMAL  PARAMETERS 

Cin  a  the  array  of  nrec  records,  each  of  length  kmax 

Cin  kmax  the  length  of  each  record 

Cin  nrec  the  number  of  records 

Cin  k  the  element  of  each  record  on  which  to  sort 


Cin  amin  a  lower  bound  on  the  values  a(k,*) 

Cin  amax  an  upper  bound  on  the  values  a(k,*) 

Cout  ih  the  sorted  order  of  the  records  contained  in  a, 

C  based  on  the  element  k  in  each  record.  That  is, 

C  ih< 1  )  contains  the  number  of  the  record  which 

C  appears  first  when  they  are  given  in  order;  ih(?) 

C  contains  the  number  of  the  second  record,  etc. 

C  nh  the  length  of  the  array  ih.  This  number  must 

C  obviously  be  >*  nrec;  ih  is  actually  used  as  a 

C  work  area  and  should  be  at  least  Z*nrec,  preferably 

C  3*nrec. 

CttMETHOD 


C  Assumes  that  the  records  are  approximately  linearly  distributed. 

C  Takes  the  value  of  each  record's  key  and  uses  it  to  estimate  its 
C  sequence  number,  placing  that  record’s  index  number  in  the  ih 
C  element  corresponding  to  that  sequence  number.  This  is  repeated 
C  for  each  record,  resolving  collisions  as  required.  If  only  a 
C  few  collisions  need  to  be  resolved  this  is  a  nearly  linear  order- 
C  ing  algorithm.  At  the  end  the  nonzero  (unfilled)  elements  of  the 
C  ih  array  are  removed  and  the  filled  elements  left  shifted  so  that 
C  the  first  nrec  elements  of  ih  give  the  ordering  information. 

Ctt 


k 
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c  kfix *********************************** ************ 

SUBROUTINE  KFIX  (  BUFFER .LENBUF .ERROR .NUMBER  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  LENBUF 
CHARACTER  BUFFER  *( LENBUF) 

INTEGER  NUMBER 
LOGICAL  ERROR 

C*  ***  ABSTRACT  *♦* 

CfPURPOSE  set  number<-inum( buf f er > ,  if  possible 
C  pointed  to  by  IPTR 

Cf AUDIT  HISTORY 

C  MEMutchler  7  FEB  83  AUTHOR 

C  MEMutchler  7  FEB  TESTER 

CfTYPE  convert  string  to  corresponding  integer  value  if  possible 
CfFORMAL  PARAMETERS 

Cin  buffer  string  containing  character  version  of  integer 

Cm  lenbuf  non-blank  length  of  buffer 

Caut  error  true  iff  buffer  doesn’t  contain  a  integer 

Cout  number  integer  number  found  in  buffer 

CfCOMMON  BLOCKS  NONE 

CtMETHOD  determine  if  integer  number  in  string,  else  err  »  true 
CfLQCAL  VARIABLES 
C  none 

Cf# 
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C  LABORT********** . * . ******** 

SUBROUTINE  LABQRT  (INTVAR,  STRING) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

% INCLUDE  INCPAR 

CHARACTER  STRIN6*LLINE 
INTEGER  INTUAR 

C*  ***  ABSTPACT  *** 

CSPURPOSE  causes  a  program  abort  and  writes  and  diagnostic  message 
C  of  “intvar;  string". 

C#AUDIT  HISTORY 

C  MEMutchler  18  JAN  83  AUTHOR 

CtTYPE  abort  and  message 
CtFORMAL  PARAMETERS 

Cin  intvar  integer  variable  to  be  in  diagnostic 

Cin  string  delimited  text  string  to  be  in  diagnostic 

CtCOMMON  BLOCKS 

Cin  incpar  global  parmeter  statements 

CtMETHOD 

C  concatenate  to  get  dts  string  to  output 
CtLOCAL  UARIABLES 

C  nstring  undelimited  output  string 

C  lenstr  string  length  in  non-blank  characters 

C  lout  length  of  input  message  string,  undelimited 

C  buffer  delimited  output  string 

C#* 
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C  LATOAT*** ***************************** ************ 
SCONTROL  CHECK-3 

SUBROUTINE  LATDAT  < DATE  ) 

c*  ***  FORMAL  PARAMETER  DECLARATIONS 

INTEGERS  DATE 

c*  ***  ABSTRACT 

CfPURPOSE  get  maximum  date  value 
C#AUOIT  HISTORY 

C  MEMutchler  31  may  83  AUTHOR 

CtTYPE  relate  date  utility 

CfFORMAL  PARAMETERS 

Cou  date  maximum  date  value 

CtMETHOO 

C  set  date  to  greatest  *4  value  and  clarify 
Ctt 


**  *  * 

**•* 

*•* 
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C  LS IT  ************************************************** 

$CONTROL  check*3 

LOGICAL  FUNCTION  lbit(word,pos  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  word, pos 

C*  ***  ABSTRACT  *** 

C8PURP0SE  returns  whether  bit  “pos"  of  "word"  is  set 
CtAUOIT  HISTORY 

C  Oensmore  01-Apr-83  AUTHOR 

CtTYPE  general  utility 

CtFORMAL  PARAMETERS 

Cin  word  a  sixteen-bit  word,  of  which  only  first  15  are  used 

Cm  pos  bit  position;  Cl.  .153 

CltMETHOD 

C  Note  that  the  bits  are  numbered  from  right  to  left. 


6ENERAL-PURP0SE  UTILITIES 


C  LETNUM****** *********************  ********************* 

Scontrol  check=2 

L06ICAL  FUNCTION  LETNUM< string , len  ) 
integer  len 
character*255  string 

C»  ***  ABSTRACT  *** 

CfPURPOSE  checks  a  string  for  characters  other  than  letters  or 
C  numbers.  True  if  no  such  characters. 

C#AUDIT  HISTORY 

C  MSCarey  28-feb-83  AUTHOR 

CftFORMAL  PARAMETERS 

Cm  Len  length  of  input  string 

Cm  string  string  to  check 

CSCOMMQN  BLOCKS 

C  none 

CftCALLER  various 

CtMETHOO 

C  Looks  for  characters  outside  permitted  octal  code  ranges 
Ctt 
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C  LETONL  . . *** . * . ****** . 

Scontrol  segment-dmaint 

LOGICAL  FUNCTION  letonl( string, len > 
integer  len 

characters  len )  string 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Checks  a  string  to  be  sure  t  contains  only  letters  or  “ 
CiAUDIT  HISTORY 

C  MSCarey  17-mar-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cm  len  length  of  input  string 

Cin  string  string  to  be  checked 

CSCOMMON  LOCKS 

C  none 

CtCALLER  various 

CfMETHOD 

C  Checks  to  make  sure  each  byte  is  within  the  proper  octal  range. 


6ENERAL-PURP0SE  UTILITIES- 


SCONTROL  sepnent*seg' 

SUSROUTIME  listen',  scenar , nnunan,  list,  1 chars, nxnist , nuncn ,  tcnany  > 

character*'. 1 chars)  list<nxnlst ) 

character*12  scanar , nnunan*B 

integer  Ichars, nxnist , nuncn 

lexical  tcnany 

C*  ***■  ABSTRACT  **■* 

CfPURPOSE  Reads  a  list  nenu  relaticn  and  returns  a  list 
C  of  candidates  which  are  “on". 

CtAUOIT  HISTORY 

C  MSCarey  ®2-Jun-S3  AUTHOR 

C  Qensncre  I®-Jun-93  Added  neglected  ’tcnany’  fennel 

CtFQRMAL  PARAMETERS 


Cin 

sc  enar 

Cin 

nnunan 

r<  „ 

*4- A  rr 

Ichars 

Cin 

nxnist 

Ccut 

list 

Cout 

nuncn 

Co-ut 

t  cnany 

CttOMHOM 

BLOCKS 

Cin 

prners 

r  t « 

**•+** 

envrn 

r  i « 

W’«  w 

rcrd®l 

current  scenaric  nane 

list  nenu  for  which  list  is  desired 

na:<  chars  in  a  list  candidate 

nax  nunber  cf  candidates  returnable 

list  cf  candidates  which  are  “cn“ 

nunber  c?  candidates  returned 

nc re  found  cn  than  allowed  by  nxnist 

pernanently  open  cursor  indexes 
group  nane  for  list  relations 
buffer  for  list  retrievals 


CftCALLER  various 
CtMETHOO- 

C  Look  in  the  cross  reference  relation  for  the  relation  nane 

C  holding  candidate  statuses  for  the  given  nenu.  Open  that 


C  relation. 

C  Calc  to  the  first  tuple  for  the  given  scenario 
C  Read  sepuentially  until  all  tuples  for  that  scenario  are 

C  found,  placinp  the  candidate  field  for  each  on  the  list 

C  if  its  status  is  "on”.  Close  the  relation  and  return. 
CtLQCAL  VARIABLES 
C  cand  candidate  nane 

C  stat  candidate  status 


6ENERAL-PURP0SE  UTILITIES 


C  LMONTH************ . . . 

SCONTROL  check-3 

INTESER  FUNCTION  lmonth<month,year > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS 

INTESER  month, year 

C*  ABSTRACT 

CtPURPOSE  Returns  number  of  days  in  given  month 
Cf AUDIT  HISTORY 

C  Oensmore  ll-Qct-83  AUTHOR 

CtTYPE  Date  utility 

CfFORMAL  PARAMETERS 

Cin  month  integer  representation  of  month 

Cin  year  integer  year  (e.g.  1983) 

CtMETHOD 

C  uses  array  indexed  by  month;  feb  is  special  case. 


»*# 

#*« 
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C  LPSENO  ******** . * . * . * . 

SCONTROL  check-3, segment-devctrl 
SUBROUTINE  lpaend(unit) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

integer  unit 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Closes  printer  spool  file,  causing  output  to  commence. 
C*AUOIT  HISTORY 

C  MSCarey  20-sep-83  AUTHOR 

CiTYPE  utility 

CfFORMAL  PARAMETERS 

Cin  unit  unit  number  lp  file  is  open  on 

CtCALLER  various 

CtMETHOO 

C  Closes  file  unless  it  is  Sstdlist  (terminal). 

Ctt 


GENERAL-PURPOSE  UTILITIES 


C  LPSET . ****** . ***** 

SCONTROL  aegment*devctrl , check-3 
SUBROUTINE  lpset(unit) 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  unit 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Determines  Line  Printer  UNIT  number 
C  and  opens  spool  file  if  appropriate 

CtAUDIT  HISTORY 

C  Oensmore  2S-May-83  AUTHOR 

C  MSCarey  29-Jun-83  'undummied*  to  use  PVALUE 

C*TYPE  I/O  Utility 

CtFORMAL  PARAMETERS 

Cout  unit  unit  to  use  for  printer  output 

CtCOMMON  BLOCKS 

Cout  ioc  also  changes  lp  unit  in  this  common 

CfCALLER  anyone  uho  wants  to  write  to  a  line  printer 


6ENERAL-PURP0SE  UTILITIES 


C  LSTRN6***»**mstrng********************* *************** 

#CONTROL  check-2 

SUBROUTINE  lstrng(  sin, lin0, sout , lout ,mlout  > 

C»  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTE6ER  lin0, lout ,mlout 
CHARACTER *1  sin<1024),  sout<mlout> 

C*  ***  ABSTRACT  *** 

CtPURPOSE  moves  possibly  delimited  string  sin  to  sout 
C»AU0IT  HISTORY 

C  Oensmore  15-Qec-82  AUTHOR 

C#TYPE  string  manipulation  utility 
CtFORMAL  PARAMETERS 
Cin  sin  input  string 

Cin  lin0  length  of  sin;  if  lin0-0,  then  sin  is  a  OTS 

Cout  sout  output  string 

Cout  lout  actual  length  of  sout 

Cin  mlout  maximum  allowable  length  of  sout 

CfMETHOO 

C  Determines  first, last,  and  length;  uses  HP  Fortran  character 
C  assignment  with  substring  operators.  Note  that  sout  may  share 
C  addresses  with  sin,  since  the  assignment  operations  are 
C  buffered. 

C 


6ENERAL-PURP0SE  UTILITIES 


C  LTRIM . * . * . 

SCONTROL  check *2 

INTEGER  FUNCTION  ltrimt  string,  len  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  ♦  ** 

INTEGER  len 

CHARACTERS  string(len) 

C*  ***  ABSTRACT  *** 

CfcPURPOSE  returns  position  of  first  nonblank  character  in  string 
CtAUOIT  HISTORY 

C  Densmore  20-Jan-83  AUTHOR 

CiTYPE  character  utility 

CtFORMAL  PARAMETERS 

Cin  string  character  string 

Cin  len  length  of  string 

C9t 
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C  LWARN********* . .  *«••*•••*•• . .  , 

SUBROUTINE  LWARN  ( INTVAR ,  STRINS) 

C*  *««  FORMAL  PARAMETER  DECLARATIONS  *** 

ZINCLUDE  INCPAR 

INTE6ER  INTVAR 
CHARACTER  STRIN6*LLINE 

C*  *(*  ABSTRACT  *** 

CfPURPOSE  causes  a  program  warning  and  writes  and  diagnostic  message 
C  of  "intvar;  string". 

Cf AUDIT  HISTORY 

C  MEMutchier  18  JAN  83  AUTHOR 

C#TYPE  mnugen  utility 
CtFORMAL  PARAMETERS 

Cin  intvar  integer  to  go  into  diagnostic  message 

Cin  string  char,  string  to  go  into  diagnostic 

C»C0MM0N  BLOCKS 

Cin  ioc  i/o  assignments 

C1L0CAL  VARIABLES 

C  nstring  undelimited  input  string 

C*t 


6ENERAL-PURP0SE  UTILITIES 


C  MABORT . . . * . * . *«# 

SUBROUTINE  mabort(text) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

PARAMETER  m-255 
CHARACTER  text** 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Print  message  to  whatever  units  are  appropriate,  then  abort 
CtAUOIT  HISTORY 

C  Oensmore  27-0ct-82  AUTHOR 

CfTYPE  Simple  subroutine  (no  output) 

CfFORMAL  PARAMETERS 

Cin  text  delimited  text  string  giving  caller 

C  and  an  indication  of  the  error  that 

C  occurred. 


6ENERAL-PURP0SE  UTILITIES 


C  MATCH2 . * . ******** . * . . 

SCONTROL  check-2 

INTESER  FUNCTION  match2< list , length, ientry  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *♦* 

INTESER  length, ientry 
INTESER  list( length) 

C*  ***  ABSTRACT  **♦ 

C#PGRP0SE  Makes  first  natch  of  entry  to  list;  returns  index 
CtAUOIT  HISTORY 

C  Oensmore  08-Jun-83  AUTHOR 

CfTYPE  data  checking  utility 
CfFORMAL  PARAMETERS 

Cin  list  list  of  integer*2  items 

Cin  length  length  of  list 

Cin  ientry  item  to  check  against  list 

CfMETHOO 

C  Simple  do-loop 
Ctt 
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C  MATCHC . ******* . . . • . 

Scontrol  check»2 

INTESER  FUNCTION  MATCHC< CHARAR, LENCH, LENARR, MATCH ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTESER  LENCH, LENARR 

CHARACTER* <  LENCH  )  MATCH , CHARAR( LENARR  ) 

C*  ***  ABSTRACT  •** 

CfPURPOSE  get  index  of  natch  in  charar  array  of  character 
C  strings 

Cf AUDIT  HISTORY 

C  MEMutchler  28-nay-83  AUTHOR 

C  Densnore  29-Jun-83  Moved  to  CUTILS 

CSTYPE  character  utility 
C#F0RMAL  PARAMETERS 

Cin  charar  array  of  strings  to  natch  into 

Cm  lench  length  of  character  strings 

Cm  lenarr  length  of  array 

Cin  natch  string  to  natch 

C*METH0D 

C  find  natch  to  array,  natch  *  position,  0  if  not  found 


6ENERAL-PURP0SE  UTILITIES 


C  MOOCOR*********************** ******************  ****** 
SCONTROL  check*3 

INTEGER  FUNCTION  modcor( number , base > 

INTEGER  number, base 

CtPURPOSE  Provide  correct  modulo  function  which  is  always 
C  positive  (0.. base-1)  instead  of  negative  when  number  is. 
CiAUTHOR  Oensmore 


6ENERAL-PURP0SE  UTILITIES 


C  MONCOM**** . ***#**♦**«***#♦♦**#*#*♦****♦*##*****♦ 

SUBROUTINE  moncom< comand , succes > 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

PARAMETER  m-255,  n-160 
CHARACTER  comand*m 
logical  succes 

C*  *♦*  ABSTRACT  *** 

CfPURPOSE  to  execute  the  string  “comand”  as  a  monitor  command. 
CtAUOIT  HISTORY 

C  Densmore  27-Qct-82  AUTHOR 

CfTYPE  Simple  subroutine 

CtFORMAL  PARAMETERS 

Cm  comand  delimited  text  string  giving  command  to 

C  be  executed 

Cout  succes  logical  variable  indicating  if  the  command 

C  was  successfully  executed. 

C3METH0D 

C  Calls  delim  to  determine  the  extent  of  the  actual  command 
C  text,  then  places  it  in  a  buffer  (maximum  length  of  a  command 
C  is  n-1  ■  159  characters).  A  carriage  return  is  appended 
C  using  the  7.  construct  valid  for  HP  Fortran,  then  the  command 
C  mstrinsic  is  called.  Success  is  given  by  the  Condition  Code 
C  contruct  .CC.  and  the  ierr  value,  which  is  zero  if  okay. 

C## 


10-102 
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C  MPOCOO . * . ** . ****** . * . 

SUBROUTINE  mpdcodl param,arg, value, nparms , naxprn, lenprn  ) 
chapacter*2S5  param 

characters lenprn  >  arg<  naxprn  ) , value( naxprn  ) 
integer  naxprn, nparna 

C*  ***  ABSTRACT  ♦** 

CtPURPOSE  Takes  a  delinited  string  of  paraneters  separated  by 
C  connas  and  decodes  it  into  individual  paraneters, 

C  also  decoding  individual  paraneters  into  left  and 

C  right  sides  of  any  enbedded  equal  signs. 

CtAUDIT  HISTORY 

C  MSCarey  30-JAN-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  paran  delinited  string  to  be  decoded 

Cout  arg  individual  paraneters,  left  side  of  equal  sign 

Cout  value  individual  parameters,  right  side  of  equal  sign 

Cout  nparns  number  of  parameters  found  in  decoding 

Cin  naxprn  maxinun  number  of  parameters  to  decode 

Cin  lenprn  naxinun  length  of  an  arg  or  value  after  decoding 

CfCOMMON  BLOCKS 

C  none 

C&CALLER  f llopn, f ilcls 

CfMETHQQ 


C  Force  to  uppercase  and  un-delimit.  Then  loop  over  number  of  connas 
C  found,  searching  also  for  equal  signs.  Blank  the  work  array  as 
C  search  moves  to  the  right. 

CtLOCAL  VARIABLES 

C  i , find, lind, len, iward, icon, ieq, lenv, lenp;  char  position 

C  or  loop  indexes 


C 


storage  for  decode  of  character  parameter 


C## 


work 


GENERAL-PURPOSE  UTILITIES 


C  MRKDAY . * . * . . . * . 

SCONTROL  check-3 

INTEGER*4  FUNCTION  mrkday< imonth, iday , iyear  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  imonth,  iday ,  iyear 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Marks  the  day;  returns  *dys  since  a  given  date  (e.g. 

C  31-Oecember-1600 ) .  This  routine  is  only  required  to 

C  return  relative  values;  the  above  date  need  not  be 

C  used,  but  subtracting  tuo  nark-days  should  yield  the 

C  nunber  of  days  between  the  tuo  corresponding  dates. 

Cf  AUDIT  HISTORY 

C  Densmore  04-May-83  AUTHOR 

CfTYPE  Date  utility 
CtFORMAL  PARAMETERS 

Cin  inonth  integer  representat ion  of  nonth  Cl.. 12] 

Cin  iday  day  C 1 . .31 ] 

Cin  iyear  year  C 1601.. 2399] 

CfCALLER  various 
C4RELA  TED  ROUTINES 

C  Other  (self-contained)  functions  nay  depend  on  the  actual 
C  date  used  (31-Oeci600)  to  return  other  infornation.  For 
C  exanple,  NUMDAY  returns  Cl., 7]  ( ie.  CSun..SatJ)  given  a 
C  date;  this  depends  on  the  fact  that  31-Dec-1600  uas  a  Sunday. 

C  Such  routines,  if  they  exist  on  this  library,  are  NUMDAY  and 
C  OATEMK  (which  is  the  inverse  of  MRKAY). 

C4METH00 

C  Checks  that  date  is  valid.  Deternines  nunber  of  full  year  days. 
C  Deternines  nunber  of  full  month  days.  Adds  leap  year  days. 

C  Conditionally  subtracts  this  leap  year  day.  Conditionally 
C  subtrats  Century  non-leap  year  days.  Conditionally  adds  the 
C  year  2000  leap  year  day. 

CtLQCAL  VARIABLES 

C  idcun  nunber  of  days  in  a  year  to  that  nonth 

Cff 
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C  MTCHOC* . * . 

SCONTROL  check*3 

INTEGER  FUNCTION  ntchoc< cl ist , nchar , len, ientry  ) 

C •  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  nchar, len 

CHARACTERS  nchar  )  cliat(len),  ientry 
C*  ***  ABSTRACT  •** 

CfcPURPOSE  Tries  to  natch  entry  to  a  list  elenent,  but  for  ordered  list 
C  (use  matchc  for  unordered  list) 

C#AUDIT  HISTORY 

C  Oensnore  10-Jun-83  AUTHOR 

CtTYPE  character  natch  utility 

CtFORMAL  PARAMETERS 

Cin  clist  character  array  of  itens  to  natch  against 

Cin  nchar  nunber  of  characters  in  each  clist  iten 

Cin  len  nunber  of  clist  itens 

Cin  ientry  iten  against  which  to  natch 

CfCALLER  utility 

CSMETHOD 

C  Binary  search. . .returns  0  if  no  natch  exists 
C»* 


GENERAL-PURPOSE  UTILITIES 


C  NCFW»*******nufc********etc . ************************** 
INTE6ER  FUNCTION  ncfu( nuords) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  nuords ,nchara 

C*  *♦*  ABSTRACT  *** 

CtPURPOSE  convert  from  word  sizes  to  character  sizes  &  vice  versa 
Cf AUDIT  HISTORY 

C  Densmore  i5-0ec-82  AUTHOR 

CfTYPE  character  manipulation  utility 

CfFORMAL  PARAMETERS 

Cin  nuords  number  of  uords 

Cin  nchars  number  of  characters 

Cf MNEMONICS 

C  N  ■  number  C  ■  Characters 

C  F  ■  From  U  ■  Uords 

C  ,  SW*  ShortUords  <  *2 )  LU*  LongUords  ( *8  ) 

C 

Cf ENTRIES  DESCRIPTION 

C  ncfu  ( nwds4 )  : 4*nuds4  *4  uords  to  characters 

C  ncfsu(nuds2)  =:■  2*nuds2  *2  uords  to  characters 

C  ncflu(nuds8)  : ■  8*nuds8  *8  uords  to  characters 

C  nufc  (nchars)  <nchars+3)/4  characters  to  *4  uords 

C  nsufc< nchars )  <nchars+l)/2  characters  to  *2  uords 

C  nlufc( nchars  )  (nchars+7)/8  characters  to  *8  uords 

Cff 
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C  NUMASK*********** . * . **** . * . 

SCONTROL  check-2 

SUBROUTINE  nunask( number , nchar, cmask, cout ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  numb er,nc bar 
CHARACTER* < nchar )  cmask, cout 

C*  ***  ABSTRACT  *** 

C4PURP0SE  Uses  cmask  as  a  mask  over  which  significant  digits 
C  in  number  are  placed. 

Cf AUDIT  HISTORY 

C  Densmore  17-Mar-83  AUTHOR 


C4TYPE 

manual 

assigner  routine 

CtFORMAL 

PARAMETERS 

Cin 

number 

the  value  to  use  in 

overwriting  mask 

Cin 

nchar 

length  of  cmask  and 

cout  ( result  > 

Cin 

cmask 

the  character  mask 

Cout 

cout 

result 

CtCOMMON 

BLOCKS 

Cin/out 

asgn 

assigner  data  block 

CtMETHOD 

C  Examples  using  notation  making  numask  look  like  char*(*)  function: 

C  *00234*  -  numask(  234,5, *00000"  )  i  "  *  -  numask(  0,4,"  “ > 

C  *:3"  -  numask (  3, 2 , " ! ! *  >  !  "fft**  -  numask (  0,4, ***#«"> 

C  *******  .  numask( 100000,5, "abcde*  )  i  *0-12“  -  numask ( -12,4, "0000“  ) 


6ENERAL-PURP0SE  UTILITIES 


C  NUMSFX . * . * . 

SCONTROL  check*3 

CHARACTER*2  function  nunafx( number , neaps  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  •** 

INTEGER  number, neaps 

C*  *•*  ABSTRACT  *«♦ 

CfcPURPOSE  returns  a  number  suffix,  like  “th“  —  the  “5th“  item... 
CtAUDIT  HISTORY 

C  Densmore  30-Mar-83  AUTHOR 

C#TYPE  utility 

CtFORMAL  PARAMETERS 

Cm  number  number  for  which  suffix  is  to  be  provided 

Cin  neaps  set  to  1  for  lowercase,  2  for  UPPERCASE 

CtLOCAL  VARIABLES 

C  tenprt  "ten  part"  —  10*( tens-diQit )  +  (ones-diQit) 

C  oneprt  “one  part"  —  value  of  (ones-diQit) 

Ctt 
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C  NWOATE . * . * . . . 

•CONTROL  check«3 

INTESER*4  FUNCTION  nwdate< oldate, ndays  ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

INTESER*4  oldate 
INTEGER  ndays 

C*  **•  ABSTRACT  **♦ 

CtPURPOSE  Returns  the  date  ndays  away  from  oldate 
Ct AUDIT  HISTORY 

C  Dansmore  3l-May-83  AUTHOR 

CtTYPE  date  utility 

CtFORMAL  PARAMETERS 

Cm  oldate  old  date...  in  RELATE  format  (see  /TDQATE/  ) 

Cm  ndays  number  of  days... may  be  positive  or  negative 

CtCALLER  utility 
CtMETHOO 

Converts  to  mm/dd/yy  representation  and  uses  datemk/mrkday 
C»  «**  INCLUDES  and  LOCAL  DECLARATIONS  **• 

Ctt 
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C  NWDATU*** ****** . . . 

SCONTROL  check-2 

INTE6£R*4  FUNCTION  nudatu< ddate, nper, pertyp  ) 

C*  ♦**  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER**  ddate 
INTEGER  nper 
CHARACTER**  pertyp 

C*  ***  ABSTRACT  *** 

C#PURPOSE  Adds  given  number  periods  to  date 
C#AUDIT  HISTORY 

C  Oensmore  12-0ct-83  AUTHOR 

CfTYPE  Date  utility 

CfFORMAL  PARAMETERS 

Cin  ddate  a  RELATE  date  (not  necessarily  clarified) 

Cin  nper  number  of  periods  to  add  (+  or  -> 

Cin  pertyp  period  type;  may  be  ’DAY’  'WEE’  ’MON’  ’QUA’ 

CtMETHOD 

C  looks  for  which  type;  performs  addition;  checks  that  the 
C  resulting  date  is  still  valid. 

C*L0CAL  VARIABLES 

C  type  3-char  version  of  pertyp 

C  m,d,y  new  date 

C  inper  internal  version  of  nper 

C  movm.movy  amounts  to  change  month  and  year 

Cft 
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C  NWIQAT . •*••«•*••***«*••,*•• . ******** 

^CONTROL  check»3 

SUBROUTINE  nw i da t(om,od,oy, ndays , nm,nd,ny ) 
c*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  om,od,oy, ndays, nm,nd,ny 

C*  ***  ABSTRACT  *** 

CSPURPOSE  Returns  mm/dd/yy  ndays  away  from  input  date 
Cf AUDIT  HISTORY 

C  Densmore  3i-May-83  AUTHOR 

CfTYPE  Date  utility 

OFORMAL  PARAMETERS 

Cin  om/od/oy  old  month/day/year 

Cin  ndays  number  of  days  separating  old  from  new 

Lout  nm/nd/ny  new  month/day/year  output 

CtMETHOD 

C  Uses  mrkday  and  datemk  routines 
Ct* 
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C  PSINIT  +■  +  *.+**  +  *+.  ++**.*********.+***********+.*+.*+.***.+.**+.+. 
SCQNTRGL  seg»ent*pgprni 
SUBROUTINE  pginit 

C*  FORMAL  PARAMETER  DECLARATIONS  •** 

C*  ♦  ♦♦  ABSTRACT  *** 

CtPURPOSE  IMITializes  the  PaSe  printing  subsystem. 

CtAUDIT  HISTORY 

C  MS CAREY  ®S-sep-B3  AUTHOR 

CtFQRMAL  PARAMETERS 


pgays  page  printing  utility  control  info 


r 

w 

none 

CfCOMMOM 

BLOCKS 

Cout 

pgsys 

CtCALLER 

CtMETHOO 

Lit  ill*  y 

P  Onana  1 ka  1 

W  wy  C  r  >w  •  r  rC 

P  1 

f  to  we  •  w  f  • 

C  Opens  the  buffer  file  for  the  printer  and  does  an  intitiai 
C  reset  of  the  buffer  to  enpty . 

CtLOCAL  VARIABLES 
C  ok  f i  1  opr.  flag 


o 


» 


GENERAL-PURPOSE  UTILITIES 


C  P GREET  *■++■■*+■+■+■+.*■+.+■*+.**+*+.+.**.+.***++*+*******+■**+**■  +  *+■*  + 

SCONTRQL  segnent*pgprnt 

SUBROUTINE  pgrset unit , 1 ini en,paglen, node,  f  node,  quit ,  pc  her  ) 
C*  «**  FORMAL  PARAMETER  DECLARATIONS  *** 

logical  puit 

integer  unit , linlen,pagien,ncde, fncde 
character*!  pc bar 

C*  ***  ABSTRACT  ♦♦■» 

CfcPURPOSE  ReSETs  PaSe  printing  utility. 

CtAUOIT  HISTORY 

C  MS Carey  B5-sep-B3  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  unit  unit  nunber  to  send  output  to  now 

Cin  linlen  length  of  output  lines 

Cin  paglen  nunber  of  lines  on  a  page  now 

Cm  node  operating  node  (see  /pgsys/) 

Cin  fnode  page  feed  node 

Cin  puit  true  if  user  wants  pg  to  pronpt  for  puit 

Cin  pchar  character  to  accept  as  puit  signal 

Cf COMMON  BLOCKS 

Cic  pgsys  page  printer  glcbals 

C*. CALLER  various 

CtMETHOO 

C  Set  up  the  connon  block  variables  according  to  the  argunents 
rtinrAi  ijabtabicc 
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C.  P&SEND  +■+■* +■*  +  ■**+■+-***  +  +  +:  +  *■**+:* +  + + 

SCCWTROL  segnent*pgprnt 

SUBROUTINE  pgsend'.  header ,  nchedr  ,  hi  ire 5 , 1  ir.e ,  eoblck ,  ecpage ,  pui  t  > 
C*  **■*  FORMAL  PARAMETER  DECLARATIONS  *** 

X include  pgsys 

integer  nchedr, hi ines 

character-*',  nchedr  )  header<  hiinea ) ,  line 
1  epical  eoblck , ecpage , quit 

C*  *«*  ABSTRACT  ♦ ♦♦ 

CtPURPOS-E  Accepts  a  line  of  output  and  places  it  m  an  output 
C  buffer  for  eventual  full-page  printing.  Optionally, 

C  controls  the  full-pape  output  event  and  prompts  the  user 
C  for  his  desire  to  pape  next. 

CX AUDIT  HISTORY 

C  MSCarey  ®5-sep-B3  AUTHOR 

CtFORMAL  PARAMETERS 


Cm 

header 

pape  heading 

text 

W4  f  <■ 

nchedr 

nunber  of  characters  in  a  header  line 

Pin 

w-4  rr 

hi  ines 

nunber  of  lines  of  heading  text 

Cin 

line 

line  to  be  ou 

tput 

Cin 

ecbick 

true  if  line 

is  end  of  a  block  uhich  nust 

Co-ut 

eopage 

true  if  page 

is  now  full 

CtCOMMON  BLOCKS 

Cio  ppsy s  pape  printing  utility  plobals 

Cm  ioc  global  ic-  units 

CtCALLER  various 
CfMETHOO 

C  Send  the  text  to  the  output  buffer  (a  file). 

C  Junp  to  the  code  handling  the  current  node. 

C  Pronpt  and/or  call  pgurit  to  do  the  output  and/or  set  eopage. 
CfLOCAL  ‘JAR  I ABLES 
C  pronpt  pronpt  string 

Ctt 
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C  PSWRIT  **************.**********************■*********** 

SCOMTRQL  seg»ent*pgprnt 

SUBROUTINE  pgwrit(  header ,nchedr, hi ines, page  ) 

O'*.  ***  FORMAL  PARAMETER  DECLARATIONS  ♦  ** 

7. include  pgsys 

integer  nchedr ,hlines 
character  header-*',  nchedr  >(  hi inea  > 
logical  page 

C--*  *.*.*.  ABSTRACT  ♦  ■*•* 

CttPURPOSE  Writes  cut  a  page  or  line  free  the  buffer  and  dees 
C  sene  buffer  housekeeping 

C* AUDIT  HISTORY 

C  MSCarey  SS-sep-83  AUTHOR 

CttFORMAL  PARAMETERS 

Din  header  text  of  page  header 

Cin  nchedr  nunber  of  chars  in  header  line 

Cin  hlines  nunber  of  lines  in  header 

Cm  page  true  if  in  header  to  be  written  on  each  call 

C  if  false,  header  written  only  on  first  call 

CtCOMMON  BLOCKS 

Cic  pgsys  page  utility  globals 

CtCALLER  various,  neatly  pgsend 

CtMETHOD 

C  Write  fron  pgtep  to  pgiast ;  reset  pgtop  to  record  after  pglast 

C  or  to  3  if  this  is  >  pgatln.  Write  header  according  to  node. 

CtLOCAL  UARIABLES 


.» 
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C  PLURAL******** . ********* . . . * . 

SCONTROL  check-3 

CHARACTER*!  FUNCTION  plural ( number , case  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  number, case 

C*  ♦**  ABSTRACT  *♦* 

CtPURPOSE  Returns  "S"  if  number  <>  1,  returns  blank  if  -1 
CSAUOIT  HISTORY 

C  Densmore  21-Apr-83  AUTHOR 

C#TYPE  Format  utility 

CiFORMAL  PARAMETERS 
Cin  number  value 

Cin  case  1-lower  case,  2-upper  case 

Ct# 
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C  PRTHLP********** *********************** *************** 

SCONTROL  check-3 

SUBROUTINE  prthlp<  name, found, in, out  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*8  name 
LOGICAL  found 
INTEGER  in, out 

C*  ***  ABSTRACT  *** 

CfPURPOSE  prints  the  text  in  file  UNIT  associated  with  category  NAME 
CfAUDIT  HISTORY 

C  Densmore  29-Mar-83  AUTHOR 

CfTYPE  utility  for  use  with  assigner 

CfFORMAL  PARAMETERS 

Cin  name  char*8  name  of  category 

Cout  found  .TRUE,  if  category  name  was  found  and  printed 

Cin  in  unit  number  for  file  on  which  text  is  located 

Cin  out  display  unit  number 

C#METHOD 

C  The  file  associated  with  unit  number  IN  is  expected  to  have  leader 
C  lines  associated  with  each  category  it  contains.  These  leader 
C  lines  are  of  the  form; 

C  ZBEGIN  CAT-NAME 

C  where  the  first  seven  characters  are  “Z8EGIN  and  the  next  eight 
C  (8)  characters  are  the  category  name.  Remaining  characters  on 
C  these  leader  lines  are  ignored  and  may  be  used  for  comments. 

C 

C  When  the  names  (ignoring  case)  match,  the  corresponding  text 
C  is  printed  until  another  %8EGIN,  or  End-Qf-File,  is  encountered. 

C  If  the  text  found  contains  lines  whose  first  seven  characters  are 
C  “%BREAK  ",  at  each  such  point  the  process  is  halted  and  the  file 
C  5  is  queried  for  a  carriage  return  to  continue,  except  when 
C  OUT  is  not  file  S. 

Ctt 
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C  PUTMEM  . . * . * . 

SCONTROL  check»2, segment*seg’ 

SUBROUTINE  putmem< id, length, source , start  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  id, length, start 
logical  source< 1  ) 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Swaps  data  in  source  into  extended  memory  area. 
CfAUDIT  HISTORY 

C  MSCarey  ll-aug-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  id  operating  system  id  code  for  area 

Cin  length  number  of  *2  words  to  swap 

Cin  source  source  array  for  words 

Cin  start  starting  position  in  extended  mem  to  send  to 

CtCOMMON  BLOCKS 

C  none 

CfCALLER  various 

CfMETHOO 

C  Calls  dmovout . 

C## 
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C  OSORTC . . . . . * . 

SCONTROL  check-2 

SUBROUTINE  qaortc( a, n,c , a , 1  ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  n,c,s,l 
CHARACTER*(c >  a(n) 

C*  ***  ABSTRACT  *♦* 

CtPURPQSE  Quick  SORTing  method  for  Character  arraya;  uaea  HEAPSORT 
CtAUOIT  HISTORY 

C  Qensmore  17-May-83  AUTHOR 

Cf  TYPE  Sort  utility 

CfFORMAL  PARAMETERS 

Cin/out  a  array  to  be  aorted  (in  place) 

Cin  n  number  of  elementa  in  the  array  a 

Cin  c  number  of  charactera  in  each  element  of  a 

Cin  a  a.tarting  character  of  the  key  for  each  element 

Cin  1  length  of  the  aubatring  compriaing  the  key 

CfMETHOD 

C  Uaea  HEAPSORT. . .See  Knuth  Volume  3  pp.  146-147 
C 

C  HeapSort  ia  guaranteed  to  be  an  N*Log<N)  algorithm  even  in  worst 
C  cases.  Records  considered  are  those  between  i  and  j  at  any  one 
C  point  in  the  algorithm.  If  left>l,  then  a  "Heap"  ia  being  formed, 
C  such  that  a( f loor( j /2 ) )C a : II  >  a(j)Ea:l]  for  all  j;  j  such  that 
C  1  <•  floor(j/2)  <  j  <-  n.  Once  left-1,  a( 1 )  has  the  largest 
C  remaining  key,  and  in  this  manner  the  records  are  sifted  into  a 
C  sorted  order,  in  place. 


Ct# 
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C  QUERY . . . 

•CONTROL  check-2 

LOGICAL  FUNCTION  query( text  ) 

c*  ***  FORMAL  PARAMETER  DECLARATIONS 

CHARACTER*255  text 

c*  ***  ABSTRACT 

CtPURPOSE  prints  query  and  calls  yesno 
CfAUDIT  HISTORY 

C  Densmore  10-Feb-83  AUTHOR 

CfTYPE  I/O  utility 

CfFORMAL  PARAMETERS 

Cin  text  query  text  —  string  is  delimited 


•  «» 

#*  * 
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C  RANF***** . *** . 

SCONTROL  check*3 

REAL  FUNCTION  ranf(iaeq) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTE6ER  iaeq 

PARAMETER  lenl-11 

INTEGER*4  jseed( lenl  ), jaeedl 

C*  ***  ABSTRACT  *** 

C#PURPQSE  Generatea  uniform  random  numbers  over  the  range  (0,1) 
CfAUOIT  HISTORY 

C  Denamore  lS-Jun-83  AUTHOR 

CfTYPE  atatiatica  utility 
CfFORMAL  PARAMETERS 

Cin  iaeq  aequence  number  (0,.lenl-l  —  if  not  in  thia  range 

C  then  the  0  aequence  ia  uaed) 

Cin  or  out  jaeed  the  aeeda  for  each  aequence 

Cin  jaeedl  a  aingle  aeed  which  ia  uaed  to  init  all  aeeda 

C4METH00 

C  ranf  returna  a  uniform  random  number  on  aequence  iaeq  over  (0,1) 

C  ranaet  initializea  all  lenl  aequencea  independently 
C  ranatl  initializea  all  aeeda  from  a  aingle  input  aeed 
C  ranget  retrievea  all  lenl  aeeda  for  atorage 

C  ALL  entriea  are  functiona  because  ranf  is:  only  ranf  uses  the 
C  function  return. 

Ctt 
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C  ROATE* . ****** . 

REAL  FUNCTION  rdate(dun) 
integer  dun 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Returns  the  current  date  as  YYMMDD  in  a  real  variable. 
CtAUOIT  HISTORY 

C  MSCarey  28-feb-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  dun  dunny 

CtCOMMON  BLOCKS 

C  none 

C#CALLER  various 

CfMETHOD 

C  Calls  calendar  intrinsic,  converts  to  nonth-day-year ,  and  packs 
C  output  variable. 

C#L0CAL  VARIABLES 


c 

date 

date  as  returned  by  intrinsic 

c 

year 

year 

C 

days 

day  in  year 

c 

td 

a  running  total  of  days 

c 

north 

nanth  of  year 

c 

dayon 

day  of  north 

CM 
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C  ROFSTR* . . . * . 

CHARACTER*8  FUNCTION  rdf str< realdt ) 
real  realdt 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Relate  real  Oate  Format  to  STRing  format  conversion. 

C  Converts  dates  stored  in  real  variables  as  YYMMDD  to  a  string 
C  format  of  “MM/OD/YY". 

CtAUOIT  HISTORY 

C  MSCarey  2B-feb-33  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  realdt  date  stored  in  RELATE  real  variable  format 

CtCOMMON  BLOCKS 

C  none 

CtCALLER  various 

CiMETHOO 

C  Break  out  the  three  2-integer  fields  and  convert  them  to  strings. 
CfLOCAL  VARIABLES 

C  string  character  buffer  for  date 

Cft 
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C  RDLN  *****•*****«****+****************+.*****+.*.***  +  **«* 
SCONTROL  SEGMENT-READ 

SUBROUTINE  RDLN  ( I UNIT, LINE, EOF > 

O  ««  FORMAL  PARAMETER  DECLARATIONS  *** 

X INCLUDE  INC PAR 
X INCLUDE  IOC 

INTEGER  I UNIT 
LOGICAL  EOF 

CHARACTER  LINE*LLINE , BUFFER*LLIN£ 

C*  *■**  ABSTRACT  *■**■ 


ripHooncc 

W)K  wear  U'M'% 

!  read  a 

line  fron 

IUNIT,  without  uppercasing 

CtAUOIT  HISTORY 

r 

w 

MEMutchler 

17  JAN  S3  AUTHOR 

r 

W 

MEMut c  hi er 

S  FEB  S3  TESTER  {program  treadl  ) 

r 

M' 

MSCarey 

10  FEB  S3  Reads  S®  fron  5,  else  72  col 

/• 

MSCarey 

1  MAR  S3  Echoes  input  if  cfecho  true 

r 

w 

MSCAREY 

5  Mar  S3  Handles  con  file  termination 

CttTYPE 

mnurun 

utility 

CtFORMAL 

PARAMETERS 

r  i  « 

wa  r  «■ 

iunit 

unit  nunber 

fron  which  to  read 

P  <**i  i  + 

M-W'M  • 

line 

line  that 

was  read 

Cout 

eof 

true  iff 

eof 

was  read 

CtCOMMON 

BLOCKS 

Cm 

incpar 

global  parameter  statenent 

Pi  r, 

w  4  r  r 

cone  f  1 

holds  connand  file  info. 

CfWETHOD 

An  unfornated  read  is  done  fron  unit  - 

C 

iunit . 

EOF  -  fal 

se 

unless  an  end  of  file  is  read 

C  in  which  case  EOF  -  true.  If  command  file  building 

C  is  in  use,  LINE  is  echoed  to  unit  -  iccmfile. 

C  JUST  LIKE  READLN  WITHOUT  UPPERC 

CltL 0 CAL  VARIABLES  none 

Ctt 
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C-  RCLNC*********  *****«*«**<»**«**.•**.*««««*«•*««  *«♦«•*■»*•*♦♦ 
^CONTROL  SESMEMT-REAQ 

SUBROUT  I  ME  RDLMC  '.  IUMIT,  LIME,  EOF  ) 

C*  ♦  ♦♦  FORMAL  PARAMETER  DECLARATIONS  *** 

X INCLUDE  IMCPAP. 

X INCLUDE  LPRMTS 

i  ncTPAi  trne 

*»  **'  %>•  w  wr  rak_  *»  U'f 

INTEGER  IUMIT 
CHARACTER  LIM£*LLIME 

C*  *•**  ABSTRACT  *** 

CSPURPOSE  read  from  file  IN  and  keep  track  of  lines  read 
C  without  uppercasing,  especially  for  reading  text  files 

CtAUOIT  HISTORY 

C  MEMutchler  17  JAM  S3  AUTHOR 

C  MEMutchler  8  FEB  83  TESTER  (prcgran  treadc  ) 

CtTYPE  mnugen  utility 

CXFGRMAL  PARAMETERS 

Cin  iunit  file  number  from  which  to  read 

Cout  line  input  line  read 

Ccut  eof  true  iff  eof  read  from  iunit 

Cf  COMMON  BLOCKS 

Cin  incpar  global  parameter  statementa 

Cin  reads  holds  iline 

CtMETHQO.  An  unf or mated  read  is  done  from  unit  * 

C  iunit.  EOF  ■  false  unless  an  end  of  file  is  read 

C  in  which  case  EOF  ■  true.  If  command  file  building 

C  is  in  use,  LIME  is  echoed  to  unit  -  iccmfiie. 

C  I count  is  incremented. 

CtLQCAL  VARIABLES 

C  recoh  ’X’  recognition  character  for  comment  card 

Q-tt 
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C  P.DLNCU****  ******  *****************  *********  *******  ***** 

SCONTROL  SEGMENT "READ 

SUBROUTINE  P.OLNCU  t  IUNIT, LINE, EOF  \ 

C*  «*  FORMAL  PARAMETER  DECLARATIONS  *** 

XINCLUDE  INCPAR 
X INCLUDE  LPRNTS 

LOGICAL  EOF 
INTEGER  IUNIT 
CHARACTER  LINE«LLINE 

C*  ***■  ABSTRACT  *** 

CtPURPOSE  read  ? ran  file  IN  and  keep  track  of  lines  read 
CtAUOIT  HISTORY 

C  MEMutchler  17  JAN  S3  AUTHOR 

C  MEMutchler  S  FES  83  TESTER  (program  treadc > 

CtTYPE  mnugen  utility 

CtFOP.MAL  PARAMETERS 

Cin  iunit  file  number  from  which  tc  read 

Ccut  line  input  line  read 

Ccut  ec?  true  if?  ec?  read  from  iunit 

CtCOMMON  BLOCKS 

Cin  incpar  global  parameter  statements 

Cin  reads  holds  iline 

CtMETHQO.  An  un? or mated  read  is  done  from  unit  » 

C  iunit.  EOF  »  false  unless  an  end  of  file  is  read 

C  in  which  case  EOF  »  true.  If  command  file  building 

C  is  in  use,  LINE  is  echoed  to  unit  *  icomfile. 

C  I count  is  incremented. 

CtLOCAL  VARIABLES 

C  recch  ’X’  recognition  character  for  comment  card 

CXt 
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C  REAOLN . * . * . * 

SUBROUTINE  REAOLN  ( IUNIT, LINE, EOF  ) 

O  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

XINCLUDE  INCPAR 
XINCLUDE  IOC 

INTEGER  IUNIT 
LOGICAL  EOF 

CHARACTER  LINE*LLINE ,BUFFER*LLINE 

C#  ***  ABSTRACT  *** 

CtPURPOSE  read  a  line  from  IUNIT 
CSAUOIT  HISTORY 

C  MEMutchler  17  JAN  83  AUTHOR 

C  MEMutchler  8  FEB  83  TESTER  (program  trea 

C  MSCarey  10  FEB  83  Reads  80  from  5,  els 

c  MSCarey  1  MAR  83  Echoes  input  if  cfec 

C  MSCAREY  S  Mar  83  Handles  com  file  ter 

CtTYPE  mnurun  utility 

CfFORMAL  PARAMETERS 


17  JAN  83  AUTHOR 
8  FEB  83  TESTER  (program  treadl  ) 

10  FEB  83  Reads  80  from  5,  else  72  col 
1  MAR  83  Echoes  input  if  cfecho  true 
5  Mar  83  Handles  com  file  termination 


Cin  iunit 

Cout  line 

Caut  eof 

C#COMMON  BLOCKS 


unit  number  from  which  to  read 
line  that  was  read 
true  iff  eof  was  read 


Cm  incpar 

Cm  comcfl 

CfMETHOO  An  unfor 
C  iunit. 

C  in  whicl 

C  is  in  u; 

CtLOCAL  UARIABLES 
C** 


incpar  global  parameter  statement 
comcfl  holds  command  file  info. 

An  unformated  read  is  done  from  unit  * 
iunit.  EOF  ■  false  unless  an  end  of  file  is  read 
in  which  case  EOF  *  true.  If  command  file  building 
is  in  use,  LINE  is  echoed  to  unit  ■  icomfile. 
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C  . . * . ***** . ****** . . 

SCONTROL  check.*2 

INTEGER  FUNCTION  rtr im< str ing , length  ) 
c*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  length 
CHARACTER*1  string( length  ) 

c*  '  ***  ABSTRACT  *** 

CtPURPOSE  Finds  length  of  string,  NOT  including  any  trailing  blanks. 
CtAUDIT  HISTORY 

C  Densmore  28-0ct-82  AUTHOR 

CSTYPE  Simple  function 

CfFORMAL  PARAMETERS 

Cin  string  the  character  string 

Cin  length  length  of  string 

Cfunct ion  rtrim  length  of  string  without  trailing  blanks 

CtMETHOD 

C  Uses  HP  Fortran  substring  operator  to  locate  last  nonblank. 

C  If  all  blank,  rtrim  is  returned  zero. 

C#* 
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C  SCLEAR******** **********************  ****************** 

SCONTROL  SEGMENT-devctrl 
SUBROUTINE  SCLEAR 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CfPURPOSE  clear  terminal  screen 
Cf AUDIT  HISTORY 

C  MEMutchler  ll-mar-83  AUTHOR 

C#TYPE  mnurun  utility 

CfFORMAL  PARAMETERS  none 
CtCOMMON  BLOCKS 

Cin  envirn  holds  clear  screen  control  characters 

Cin  ioc  i/o  file  assignments 

CSCALLER  display  menu  routines 

CfMETHOO  write  control  characters  to  unit  iout 

C## 
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c  SETCCL***************** ****************** ************* 

SCONTROL  SEGMENT-devctrl 
SUBROUTINE  SETCCL 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Set  clear  screen  control  characters 
C#AUDIT  HISTORY 

C  MEMutchler  1 1 —mar — 83  AUTHOR 

C#TYPE  murun  utility 

CtFORMAL  PARAMETERS  none 
CSCOMMON  BLOCKS 

Cin  pvalue  holds  runtime  parameter  values 

Cin  pvdecl  holds  declarations  for  parameter  names 

Cin  pveqiv  equivalence  statements  between  pvdecl  and^pvalue 

Cio  envirn  holds  info  about  runtime  enviornment 

CtCALLER  sclear 

Cf METHOD 

C  set  correct  characters  according  to  terminal  type 
CJtLOCAL  VARIABLES 
C  none 

C## 
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C  SETTTY . *** . ***** . 

SCONTROL  SEGMENT-devctrl 
SUBROUTINE  SETTTY 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

C*  ♦  ♦*  ABSTRACT  *** 

CSPURPOSE  Determine  user’s  terminal  type  so  that  control 
C  characters  con  be  set  accordingly. 

CtAUDIT  HISTORY 

C  MEMutchler  12-MAR-83  AUTHOR 

C#TYPE  mnurun  utility 

CtFORMAL  PARAMETERS  none 

C#COMMON  BLOCKS 

Cin  pvalue  holds  runtime  parameter  values 

Cin  pvdecl  holds  declarations  for  parameter  names 

Cin  pveqiv  equivalence  statements  betueen  pvdecl  and  pvalue 

CtCALLER  inimnu 

CSMETHOO 

C  determine  terminal  type  by  checking  terminal  line  number,  if 
C  it  is  51,  the  terminal  is  an  hp,  if  not  set  it  to  the  most 
C  commonly  used  terminal  at  DSA 
C8L0CAL  UARIABLES 

C  filnum  file  number  assigned  to  logical  unit  S 

C  linum  terminal  line  number 

Cf# 
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C  SLPRNT*** . * . ****** . * . . 

SCONTROL  check-3 

SUBROUTINE  alprnt( nprnt , vprnt > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

INTEGER  nptnr 
LOGICAL  vprnt 

C*  ***  ABSTRACT  *** 

OPURPOSE  altera  apecific  LPRNTS  valuea 
CtAUOIT  HISTORY 

C  Qenamore  10-Feb-83  AUTHOR 

CtTYPE  niacel laneoua  utility 

CtFORMAL  PARAMETERS 

Cin  nprnt  Iprnta  index 

Cin  vprnt  Iprnta  value  (true  or  falae) 

CSCOMMON  BLOCKS 

Cout  Iprnta  diagnoatic  flaga 

Ctt 
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C  STOPCF . . * . . 

^CONTROL  SEGMENT-MENU 
SUBROUTINE  stopcf 

C*  **♦  ABSTRACT  *** 

CtPURPOSE  Takes  care  of  housekeeping  on  eof  in  current  command  file. 
CfAUOIT  HISTORY 

C  MSCarey  27-FE8-83  AUTHOR 

C#F0RMAL  PARAMETERS 
CfCOMMON  BLOCKS 

Cio  comcfl  command  file  usage  status  info 

Cio  ioc  io  unit  assignments 

CtCALLER  readln 
CtMETHOO 

C  Reduces  execution  nesting  level  by  one.  If  it  reaches  zero,  sets 
C  inuse  to  false.  Resets  io  unit  numbers. 

Cf LOCAL  VARIABLES 
C  none 

C## 
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C  . . . . * . 

SCONTROL  SEGMENT-MENU 

CHARACTER*72  FUNCTION  STRN<  INUM,LEN ) 

X INCLUDE  INCPAR 

INTEGER  LEN,  INUM 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  ♦** 

CHARACTER  STRING'LLINE 

c*  ***  ABSTRACT  ♦** 

CfPURPOSE  like  intrinsic  funcion  str,  returns  len  necessary 
Cf AUDIT  HISTORY 
C  MEMutchler 


1  FEB  83  AUTHOR 


GENERAL-PURPOSE  UTILITIES 


C  . . ********** . ****** . . 

SCONTROL  check-2 

SUBROUTINE  trecol(  list  .richer,  len,unit  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  richer ,  len, unit 
CHARACTERS  ncher )  list(len) 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Prints  LIST  in  three  columns  on  unit  UNIT 
CfAUDIT  HISTORY 

C  Densmore  10-Jun-83  AUTHOR 

CtTYPE  I/O  utility 

CtFORMAL  PARAMETERS 

Cin  list  list  of  strings  to  print 

Cin  ncher  length  of  eech  string 

Cin  len  number  of  strings 

Cin  unit  Logicel  Unit  Number  on  which  to  print  strings 

CfMETHOD  simple  write  statement 

Ctt 
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C  TTY  INI . ******** . * . 

$CONTROL  check“3 

SUBROUTINE  ttyini 

C*  ***  ABSTRACT 

CSPURPOSE  initializes  /tty/ 

CtAUOIT  HISTORY 

C  Oensmore  24-Mar-83  AUTHOR 

C#TYPE  screen  utility 

CtCOMMON  BLOCKS 

Cm/out  tty  terminal  parameters 
Cf# 


*** 
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C  UPPERC******lowerc*********** ************* ************ 

^CONTROL  check*2 

SUBROUTINE  upperc< text , n  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  n 

CHARACTER *1  text(n) 

C*  ***  ABSTRACT  *** 

CltPURPQSE  Convert  all  lower  (upper)  case  characters  to  upper  (lower) 
CtAUDIT  HISTORY 

C  Densmore  27-0ct-82  AUTHOR 

CfTYPE  Inout  Subroutine 

CfFORMAL  PARAMETERS 

Cin/out  text  text  string  to  be  modified 

Cin  n  length  (characters)  of  text  string 

CtMETHOD 

C  Uses  HP’s  byte  addressing  construct  to  move  through  the 
C  string  and  locate  any  in  the  appropriate  range.  Since 
C  in  ASCII  the  difference  between  any  lowercase  letter  and' 

C  the  corresponding  uppercase  letter  is  a  constant  value 
C  (decimal  32),  this  value  is  merely  added  or  subtracted 
C  from  the  integer  representat ion  of  each  character  to  be 
C  altered  to  apposite  case. 

Ctt 
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C  UREAD*******uwrite** ************************** ******** 

^CONTROL  check-2 

SUBROUTINE  ureadtunit ,plist , length  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  unit , length , p 1 i st ( length  > 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Allows  record  structure  unformatted  reads  and  writes 
CtAUOIT  HISTORY 

C  Densmore  04-Apr-83  AUTHOR 

Cf TYPE  I/O  Utility 

CtFORMAL  PARAMETERS 

Cin  unit  logical  unit  number  for  transfer  file 

Cin/out  plist  parameter  list  of  *2  words  .( in-write,  out-read) 

Cin  length  length  of  plist 
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C  USRINF****************** ******************** ********** 

SUBROUTINE  usrinf<  uname.ugroup ,uacct , uhome  ) 
character*8  uname.ugroup ,uacct , uhome 
C*  ***  ABSTRACT  *** 

CtPURPOSE  retrieves  user  name/directory  info 
Ct AUDIT  HISTORY 

C  Densmore  13-jan-83  AUTHOR 

C*F0RMAL  PARAMETERS 

Cout  uname  user  name 

Cout  ugroup  user’s  log-on  group 

Cout  uacct  user’s  log-on  account 

Cout  uhome  user’s  Home  group,  if  any 

CfCOMMON  BLOCKS 

C  none 

CfCALLER  various 

CtMETHOD 

C  See  fortran  manual  appendix  A  for  discussion  of  calls  to  intrinsics 
C  See  MPE  Intrinsics  manual  page  2-19S  for  "WHO" 

CtLOCAL  VARIABLES 
c  none 

C## 
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C  USUMNI******vsubni **************************** ******** 

SCONTROL  check*3 

SUBROUTINE  vsumni( n .head, tai 1 .result  > 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  n 

INTEGER  head<  n  ), tail( n ) .result ( n  ) 

C*  ***  ABSTRACT  *** 

C#PURPOSE  vector  sum/difference  for  integers 
CtAUDIT  HISTORY 

C  Oensmore  17-Mar-83  AUTHOR 

CfTYPE  manual  assigner  routine 

CiFORMAL  PARAMETERS 

Cin  n  length  of  vectors 

Cin  head  first  vector 

Cin  tail  second  vector 

Cout  result  head+tail  or  head-tail 

C## 
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C  XMIT/B************************************************ 
SCONTROL  check*2 

SUBROUTINE  xmit  ( length , source , target > 

INTEGER  length 

INTEGER*4  source( 1  ), target ( 1  ) 

CfPURPOSE  fills  target  array  with  source  via  copy 
C  "B“  entry  allows  right-shifts  by  "D0“ing  backwards. 

CtAUDIT  HISTORY  Densnore  28-0ct-82 
CSFORMAL  PARAMETERS 

Cm  length  size  of  move... if  <0,  only  source*  1  )  is  used 

Cin  source  source  array 

Cout  target  target  array 

Ctt 


6ENERAL-PURP0SE  UTILITIES 


C  XMIT2/B*********************************************** 
SCONTROL  check-2 

SUBROUTINE  xmit2( length, source, target  ) 

INTEGER  length 

INTEGER*2  source* 1  ), target* 1 ) 

CtPURPOSE  fills  target  array  with  source  via  copy 
C  "8"  entry  allows  right-shifts  by  ”D0“ing  backwards. 

CtAUDIT  HISTORY  Densnore  28-0ct-82 
CtFORMAL  PARAMETERS 

Cin  length  size  of  move . . . i f  <0,  only  source( 1 >  is  used 

Cin  source  source  array 

Cout  target  target  array 

C## 


6ENERAL-PURP0SE  UTILITIES 


C  XMIT4/B*********************************************** 
SCONTROL  check-2 

SUBROUTINE  xmit4( length , source, target  ) 

INTEGERS  length 

INTEGER*4  source! 1  ), target ( 1  ) 

C4PURP0SE  fills  target  array  with  source  via  copy 
C  "B“  entry  allows  right-shifts  by  “D0“ing  backwards. 

C4AU0IT  HISTORY  Densnore  28-0ct-82 
CfFORMAL  PARAMETERS 

Cin  length  size  of  move... if  <0,  only  source! 1  )  is  used 

Cin  source  source  array 

Cout  target  target  array 

C## 
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C  XMITC  **-***xnitb************************************** 
SCONTROL  check*2 

SUBROUTINE  xmitc( length , source , target ) 

INTEGER  length 

CHARACTER  source( 1  ), target ( 1 > 

CtPURPOSE  fills  target  array  with  source  via  copy 
C  "B“  entry  allows  right-shifts  by  ''D0“ing  backwards. 

CtAUDIT  HISTORY  Densmore  28-0ct-82 
CtFORMAL  PARAMETERS 

Cin  length  size  of  move... if  <0,  only  source< 1  )  is  used 

Cm  source  source  array 

Cout  target  target  array 

C## 
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c  YESNO**** **♦************************+**** ************* 

logical  function  yesno( in, iout > 
integer  in, iout 

C*  *♦*  ABSTRACT  *** 

CfPURPOSE  Prompts  for  an  answer,  true  if  yes. 

CfAUDIT  HISTORY 

C  MSCarey  03-feb-83  AUTHOR 

CfTYPE  I/O  utility 
CfFORMAL  PARAMETERS 

C  in  unit  number  to  read  from 

C  in  unit  number  to  write  to 

CfCOMMON  BLOCKS 
CfCALLER  various 
Cf METHOD 

C  Prompts,  accepting  only  “y " , “n“ , “yes“  ,  or  “no“ 

Cf LOCAL  VARIABLES 
C  answr  input  buffer 

C  answer  user  answer 

C  len  string  size 

Cf* 


10-145 


6ENERAL-PURP0SE  UTILITIES 


C  ZABORT********** . * . . . * . 

SUBROUTINE  zabort 

C*  *♦*  ABSTRACT  *** 

CtPURPOSE  Aborts  when  an  error  occurs ...  of  ten  called  by  MABORT. 
CtAUOIT  HISTORY 

C  Oensmore  27-0ct-82  AUTHOR 

CtTYPE  Simple  subroutine 

Ctt 
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10.2  FORTRAN  UTILITIES  FOR  DBMS  USAGE 

The  routines  in  the  Data  Base  management  system  InterFace 
library  (DBIF;  source  in  dbifa.src,  dbifdm.src,  dbifl.src, 
dbifrv.src;  principal  include  files  strngs.incl,  cursrs.incl; 
object  code  in  dbif.obj)  were  created  for  two  reasons: 

1)  A  move  of  ALIAS  software  to  a  computer  other  than  the  HP 
3000  was  declared  to  be  a  possibility  at  the  outset  of 
ALIAS  development.  Given  that  RELATE  runs  only  on  the 
HP  3000,  and  that  ALIAS  routines  would  be  making  very 
heavy  use  of  RELATE,  it  seemed  prudent  to  buffer  all 
requests  for  DBMS  services  through  a  set  of  interface 
routines.  At  conversion  it  should  be  possible  to  change 
only  the  internals  of  the  interface  to  work  with  a  new 
DBMS,  making  it  possible  to  avoid  major  changes  to  the 
applications  programs. 

2)  The  RELATE  Host  Language  Interface  routines  are  rather 
difficult  and  finicky  to  work  with  directly.  A  more 
programmer- friendly  means  of  accessing  the  data  base  was 
desired. 

10.2.1  DBIF  Organization 

Although  the  DBIF  can  be  used  to  issue  any  RELATE,  CREATE, 
or  GRAF  command,  it  is  primarily  designed  to  make  use  of  the 
routines  of  RELATE' s  Host  Language  Interface.  These  routines 
provide  a  record-level  method  of  data  base  access  (as  opposed  to 
the  set-level  method  of  interactive  RELATE);  that  is,  operations 
are  performed  on  data  base  files  one  tuple  at  a  time.  In  addi¬ 
tion  to  the  obvious  read,  add,  delete,  and  update  capabilities, 
the  HLI  also  provides  a  "point"  routine  which  allows  the  pro¬ 
grammer  to  jump  to  the  location  on  an  index  whose  field  values 
match  the  values  of  the  target  he  specifies.  Also,  a  query 
routine  will  return  information  about  relations  and  the  state  of 
the  DBMS,  and  an  error  routine  can  be  used  to  learn  more  about 
errors  after  they  have  occured. 


The  DBIF  can  be  divided  into  high-level  and  low-level  rou¬ 
tines,  the  high-level  routines  being  those  called  by  programmers. 
An  annotated  listing  of  the  high-level  routines  is  presented  in 
Table  10-5.  Low  level  routines  are  listed  in  Table 


10-147 


Table  10-5.  DBIFA  High-Level  Routines 


ROUTINE  PURPOSE 


CKWPRV  Security  utility  which  module  authors  can  call  during 

their  initialization  code  to  see  if  the  user  is  going 
to  have  write  access  to  all  the  relations  he  will 
require.  If  not,  graceful  termination  can  be 
engineered.  This  routine  duplicates  the  logic  of 
rvscen,  which  is  called  by  DBIF  routines  about  to  do 
a  DB  write  to  check  privelege.  Rvscen  invokes  a 
Z ABORT  if  priveleges  are  insufficient,  which  is  why 
explicit  testing  is  nice. 

RCINIT  Initializes  DBIF.  Must  be  called  before  any  other 

DBIF  routine. 

RELCOM  Call  this  to  execute  any  RELATE,  CREATE,  or  GRAF 

command  programmatically.  Allows  simulation  of 
interactive  use  of  RELATE. 

RTPADD  Adds  a  single  record  to  the  path  specified. 

RTPCAL  Requires  a  buffer  of  target  values  for  the  fields  on 

the  current  index.  Performs  a  "point”  operation 
which  locates  the  record  with  fields  matching  these 
values;  then  returns  the  contents  of  the  record  into 
a  second  data  buffer.  Much  more  efficient  than 
SELECT  for  maty  types  of  searching.  Returns  no  data 
if  point  fails. 

RTPDEL  Deletes  the  current  record  on  the  path  specified. 

RTPKIL  Similar  to  rtpcal,  except  for  record  deletion.  Finds 

the  record  matching  the  specified  index  value  via  a 
point,  then  deletes  it. 

RTFNEW  Attempts  to  add  a  record  to  the  current  path;  this 

routine  is  an  integer  function  which  returns  a  status 
code  value,  where  0*success,  l=failure  due  to  unary 
key  violation,  and  2*failure  due  to  relation  full. 
It's  a  good  idea  to  use  this  rather  than  rtpadd  and 
to  place  error  handling  logic  in  your  code. 

RTPNFD  Like  rtpcal  except  expects  NOT  to  find  the  record 

pointed  to.  Reads  and  returns  whatever  record  the 
point  left  the  record  pointer  at. 

RTPNXT  Reads  and  returns  the  next  record  on  the  current 

path. 

RTPREP  Like  rtpcal  except  for  update.  Points  to  the  record 

specified,  then  updates  it  with  the  specified  values. 
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ROUTINE 

RTPUPD 

RVCLQS 

RVCFIL 

RVCKIL 

RVCPTH 

RVCREL 

RVCIWD 

RVCSLC 

RVCSRT 

RVCSTS 

RVCSYN 


Table  10-5.  DBIFA  High-Level  Routines 


PURPOSE 


Updates  the  current  record  on  the  specified  path  with 
given  values. 

Closes  a  path  and  de- allocates  its  cursor. 

Creates  a  new  relation  with  the  specified  structure, 
returning  the  index  of  its  cursor/path. 

Deletes  the  relation  open  on  the  specified  path. 

Creates  a  relation  and  opens  it  with  an  alternative 
path  name.  Very  similar  to  rvcfil. 

Opens  a  relation,  returning  the  index  of  its 
cursor/path. 

Rewinds  the  specified  path. 

Does  a  SELECT  and  returns  the  index  of  its 
cursor/path.  The  files  the  select  draws  on  must 
already  be  open  on  other  cursors.  Their  names  must 
be  included  as  part  of  normal  SELECT  syntax  somewhere 
in  the  field  list  or  WHERE  clause  (e.g.  field  list  of 
•+f  ilea.fldl,  f  ilea.  fld2,f  ileb.  fld9+")  . 

Opens  a  relation  and  sets  to  a  specified  index.  Note 
that  if  points  will  be  desired  using  only  a  subset  of 
the  index  fields  (e.g.  only  SCENARIO  of  an  index  on 
SCENARIO,  CLASS}  then  the  last  desired  field  should  be 
followed  by  a  "|"  rather  than  a  "  (e.g. 

SCENARIO  I  CLASS)  . 

Opens  a  relation  and  sets  to  a  specified  index,  using 
an  alternative  path  name.  Like  rvcsrt. 

Opens  a  relation  on  an  alternative  path  name. 

Similar  to  rvcrel.  Note  that  the  alternative  path 
name  routines  are  seldom  useful.  Since  all  files  are 
opened  on  separate  cursors,  and  the  same  file  may  be 
open  more  than  once  under  the  same  name  if  the  opens 
are  done  on  separate  cursors,  then  there  is  no 
particular  reason  to  use  path  synonyms. 
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10-6.  Section  10.2.7  (subroutine  abstracts)  gives  the  detailed 
calling  requirements  for  each  routine. 

10.2.2  using- the  Rsu&is&s 

The  reader  will  notice  that  the  routines  named  in  Table 
10-5  can  be  divided  into  four  categories  by  their  names: 

1)  rcinit 

2)  relcom 

3)  All  routines  whose  names  begin  with  "rvc”. 

4)  All  routines  whose  names  begin  with  "rtp". 

Rcinit  initializes  the  DBIF.  Relcom  can  be  used  to  give 
any  interactive  RELATE,  CREATE,  or  GRAF  command  programmatically. 
The  "rvc”  (Relate  Virtual  Cursor)  routines  are  used  to  set  up  a 
retrieval  path;  they  open  and  close  files,  choose  indexes,  and 
give  selects.  The  "rtp"  (Relate  TuPle)  routines  find  and/or 
manipulate  individual  records  in  data  relations. 

A  typical  calling  sequence  would  include  rcinit,  rvcsrt  to 
open  a  relation  and  set  to  a  particular  index,  and  a  combination 
of  rtpcal  and  rtpnxt  calls  to  jump  to  a  location  on  the  index  and 
retrieve  records  starting  there. 

There  are  four  basic  choices  for  setting  up  a  retrieval 

path: 

1)  The  equivalent  of  a  regular  OPEN  FILE  (rvcrel)  . 

2)  The  equivalent  of  an  OPEN  FILE  followed  by  a  SET  INDEX 
( rvcsrt)  . 

3)  The  equivalent  of  a  SELECT  (rvcslc);  this  presumes  that 
the  relations  the  SELECT  wants  have  already  been  opened 
by  other  "rvc"  calls. 

4)  The  equivalent  of  a  CREATE  FILE  (rvcfil). 


ROUTINE 

DOGIDX 

DCGTUP 

DCINIT 

DCKCRS 

DC KERR 

DCSLCT 

DCS  PTH 

DELCRS 

DELIDX 

DELREL 
DEL  TUP 

DMKCRS 

DMKIDX 

DMKREL 

DMKTUP 

DOPPTH 

DPCMD 


\  v  p  a  v.v  \  •.  -  -  '*■ 


Table  10-6.  DBIFA  Internal  (Low-Level)  Routines 
PURPOSE 


Does  a  SET  INDEX  and  related  data  structure  set-up. 

Does  a  record  update  for  the  current  tuple. 

Initializes  the  cursor  and  string  chain  subsystems. 

Error  management  routine  which  prints  status 
information  which  can  be  extracted  from  the  cursor 
the  problem  occurred  on  and  from  the  DBIF  data 
structure. 

Checks  to  see  if  an  error  happened  on  the  last  call 
involving  the  given  cursor,  and  causes  the  associated 
RELATE  error  message  to  be  printed  to  the  terminal  if 
one  did. 

CLOSES  all  files  open  on  a  cursor  a  select  was  given 
on  and  releases  the  cursor. 

CLOSES  the  file  open  on  a  regular  (non-select)  cursor 
and  releases  the  cursor. 

Routine  which  actually  releases  cursors,  both  in  DBIF 
data  structure  and  in  RELATE  son  process. 

Deletes  an  index  from  the  current  relation.  This 
routine  is  non-function  (i.e.  it  will  abort)  as  long 
as  the  current  convention  of  opening  all  relations 
with  MODE3 SHARED  is  in  place. 

Deletes  the  relation  open  on  the  given  cursor. 

Deletes  the  current  record  in  the  relation  open  on 
the  given  cursor. 

Allocates  a  cursor  in  the  DBIF  (/cursrs/)  data 
structure  and  call  rdbinit  to  initialize  it. 

Attempts  to  create  a  new  index.  Will  always  abort  at 
present  since  all  relations  are  opened  with 
MODE3  SHARED. 

Creates  a  new  relation. 

Adds  a  record  to  the  specified  path. 

Opens  the  given  relation  on  the  given  cursor. 

Diagnostic  print  utilities. 


10-151 


Table  10-6.  DBIFA  Internal  (Low-Level)  Routines 


ROUTINE 

DPCMDl 

DREWND 

DSOPEN 


DSELCT 

DTCALC 

DTNEXT 

LENIDX 

RCKPRV 


RSTIDX 

RVSCEN 


SNRLSN 

SNRLNM 


PURPOSE 


Rewinds  the  file  open  on  the  given  cursor. 


Service  routine  for  rvcslc,  opens  all  the  files 
requested  as  part  of  the  select  on  the  select's 
cursor.  Note  that  since  only  the  path  parts  of  the 
file  names  are  specified  in  the  select  syntax  the 
group  names  must  be  extracted  from  the  DBIF  data 
structure  and  by  rdbinfo  calls. 

Does  a  select. 


Does  a  point  on  the  given  cursor. 

Reads  a  record  from  the  given  cursor's  path. 

Figures  out  the  number  of  words  in  the  specified 
index  and  stores  it. 


Checks  to  see  if  the  user  has  write  priveleges  on  the 
given  file.  Both  sysusr.sysro  and  scenario  system 
checks  implicitly  involved.  Called  before  each  DBIF 
write  operation  as  a  last-ditch  defense. 

Execute  for  index-setting. 

Security  check  and  flag-setting  routine  called 
whenver  a  path  is  set  up  by  one  of  the  "rvc" 
routines.  Also  sets  scenario  key  field  value  in 
/scenar/ . 

Utilities  used  to  access  the  scenario  system's  extra 
data  segment.  Truly  part  of  the  scenario  system,  as 
is  rvscen,  but  present  here  as  part  of  scenario 
system  "presence"  in  DBIF. 
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The  remaining  utilities  perform  similar  actions  but  using 
alternative  path  names  ( rv csy  n,  rvcsts,  and  rvcpth  respectively), 
close  files,  delete  files,  and  "rewind"  record  pointers  to 
top- of- file. 

Use  of  the  relcom  routine  should  be  avoided  except  to  give 
commands  not  provided  for  in  the  other  utilities. 

Developers  are  likely  to  find  the  rtpcal  routine  partic¬ 
ularly  useful.  Functionally  similar  to  a  combination  of  a 
BUILDER  RECORD  POINT  and  RECORD  READ  given  in  sequence,  this 
routine  can  locate  and  return  the  contents  of  a  particular  record 
in  a  relation  (by  key/index  value)  much  faster  than  an  equivalent 
select  can.  Benchmarks  have  shown  that  rtpcal  requires  approx¬ 
imately  250  milliseconds  (single-user)  regardless  of  the  size  of 
the  relation  or  the  number  of  fields  in  the  index. 

Note  that  if  it  is  necessary  for  the  implicit  point  to 
operate  on  only  a  subset  of  an  index  (e.g.  you  want  to  point  only 
to  YARD  on  an  index  of  YARD,  DATADATE,  ENTRY. DATE)  this  can  be  done 
by  specifying  the  index  with  a  "I"  rather  than  a  ",  "  following 
the  last  field  of  point- interest  in  the  "rvc"  call  (e.g. 

YARD  | DATADATE,  ENTRY. DATE) 

All  of  the  routines  require  a  single-word  integer  argument 
called  "cursor".  More  about  this  in  the  next  section. 

In  addition  to  a  cursor  index,  the  "rvc"  routines  often 
require  one  or  more  delimited  text  strings  which  specify  the  name 
of  the  relation  to  be  opened,  fields  in  the  index  to  be  set  to, 
clauses  to  include  in  the  select  statement,  etc.  The  only 
unusual  requirement  is  by  rvcslc,  which  requires  that  the  name  of 
each  relation  to  selection  is  to  draw  from  be  mentioned  at  least 
once  in  the  field  list  or  by  clause  argument,  in  the  form 
"relation. fieldname,  relation. fieldname, ....”. 
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The  "rtp"  routines  will  typically  require  at  least  one  data 
buffer  as  an  argument,  and  perhaps  a  delimited  list  of  fields  to 
be  returned,  updated,  etc.  It  is  VERY  IMPORTANT  that  the  DATA 
BUFFER  BE  WORD  ALIGNED,  i.e.  that  it  not  be  a  character  string. 

If  the  data  is  of  type  character,  equivalence  the  character 
variable  to  an  integer  array  and  pass  the  integer  form  as  an 
argument.  RELATE  will  abort  nastily  if  it  received  a 
non- word- aligned  buffer. 

To  be  most  usable,  data  buffers  should  consist  of  a  series 
of  variables,  one  per  corresponding  field  in  the  relation  (or  on 
the  index)  ,  and  of  identical  length  and  type  in  comparison  to  the 
fields.  Hi  us  a  buffer  for  the  fields  SCENARIO,  CLASS,  HULL  would 
consist  of  a  character *12, character *10, integer *2  series  of 
variables,  all  next  to  each  other  in  process  data  memory.  The 
best  way  to  ensure  that  the  variables  are  actually  sequential  in 
memory  is  to  declare  them  sequentially  in  the  same  common  block 
(character  and  numeric  data  may  be  mixed  in  HP  FORTRAN  common 
blocks) .  Equivalences  may  also  be  used,  but  require  more  coding. 
Note  in  the  example  given  that  the  "scenario"  variable  needs  to 
be  equivalenced  to  an  integer  array  to  word-align  the  common 
block. 

When  using  the  rtpcal  routine,  it  may  seem  that  there 
should  be  two  field  lists  as  arguments,  to  accompany  the  two  data 
buffers  required:  one  to  specify  the  fields  in  the  target  to  be 
pointed  to,  and  one  to  specify  the  fields  to  be  returned.  The 
target  field  list  is  implicit,  being  defined  by  the  current 
index.  Note  that  rtpcal  will  ALWAYS  return  notfnd*.  true,  if  the 
target  (key)  data  buffer  is  not  of  the  same  length  as  the  index, 
or  if  values  are  improperly  positioned  within  the  buffer.  Note 
especially  that  since  RELATE  lef t- justif  ies  strings,  they  should 
be  lef t- justified  in  the  target  buffer  (but  non-j ustif ied  strings 
can  be  placed  in  the  relation  using  the  DBIF)  . 
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10  .2  .3 

The  DBIF  manipulates  three  global  data  structures.  The 

first  is  a  string  buffer,  managed  by  the  CHN _ general  purpose 

utilities,  which  is  used  for  handling  field  lists,  file  names, 
etc.  This  buffer  is  of  no  particular  interest  to  users;  the 
chain  strategy  was  used  since  field  lists  can  exceed  255 
characters  and  in  order  to  conserve  memory. 

The  second  data  structure  is  the  cursen  array  in  the 
/scenar/  common  block.  When  a  file  is  opened  using  any  of  the 
"rvc"  routines,  the  proper  scenario  key  field  value  for  that  file 
is  retrieved  and  placed  in  the  location  in  cursen  indexed  by  the 
cursor  index  to  be  returned  to  the  "rvc"  routine's  caller.  The 
corresponding  location  in  the  wrtprv  array  is  also  set.  This 
activity  actually  is  the  portion  of  the  scenario  system  which 
resides  in  the  DBIF. 

The  "cursor"  data  structure  is  the  third.  Remember  from 
Section  8.4  that  HLI  routines  require  that  a  50-word  integer 
array  be  provided  with  each  call  as  a  communication  area  and  a 
repository  for  certain  data  the  HLI  needs  to  have  global.  These 
arrays  are  called  "partitions"  in  BUILDER;  they  are  called 
"cursors"  in  the  HLI  section  of  the  RELATE  manual. 

The  DBIF  has  the  capacity  to  work  with  20  cursors.  The 
DBIF  is  designed  so  that  each  retrieved  path  will  have  its  own 
cursor;  except  for  paths  set  up  by  an  rvcslc  (select)  call,  a 
SHCW  PATH  command  given  on  any  of  these  cursors  would  reveal  only 
a  single  file  open.  Since  paths  set  up  by  rvcslc  may  only  use 
files  open  on  another  cursor,  this  means  that  the  DBIF  may  work 
with  no  more  than  20  files  simultaneously. 

The  50-word  integer  arrays  are  managed  internally  to  the 
DBIF.  The  "rvc"  routines  are  all  integer  functions  which  return 
a  single  word  integer  with  a  value  between  1  and  20 - a  cursor 
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index.  Calls  to  other  DBIF  routines  supply  this  index  to  indi¬ 
cate  which  file  they  want  to  work  with;  the  index  is  then  used  to 
pick  out  a  particular  element  of  the  DBIF' s  20x50  cursor  array. 

Thus,  the  information  returned  by  the  "rvc"  routines  in 
response  to  a  path-creation  call  is  useable  only  in  queries  and 
updates  made  through  the  "rtp"  (and  relcom)  routines. 

This  design  makes  it  unnecessary  for  application  routines 
to  create  and  manage  large  cursor  data  structures,  and  also  makes 
intensive  work  with  a  few  relations  easier  since  the  file  name 
and  index  need  be  specified  only  once;  after  that  only  an  integer 
variable  is  required  in  calling  code. 

This  intensive  use  of  a  few  relations  is  the  most  common 
form  of  programmatic  data  base  access. 

The  design  is  limiting  in  that  only  20  files  can  be  open 
simultaneously,  but  remember  that  a  single  RELATE  process  can 
handle  a  maximum  of  about  25  open  files  before  aborting  with  a 
memory  overflow.  The  rdbinitx  means  of  using  multiple  RELATE 
sons  was  not  available  at  the  time  the  DBIF  was  implemented. 

Giving  the  DBIF  a  multiple-son  handling  capability  would 
require  paging  of  the  cursor  data  structure  as  well  as  substi¬ 
tution  of  rdbinitx  calls  for  rdbinit  calls  (and  logic  to  detect 
when  to  use  a  new  process  as  opposed  to  an  old  one)  .  Otherwise 
the  cursor  data  structure  would  begin  to  take  up  too  much  process 
memory  in  the  Core. 

10.2.4  PBIf-.Int.fiI.Dalg 

Many  high-level  DBIF  routines  just  call  low-level  routines 
which  in  turn  call  functionall  similar  HLI  routines.  For 
example,  rtpupd  calls  dcgtup  which  calls  rdbupdate.  Given  an 
understanding  of  the  HLI,  the  structure  of  the  DBIF  is  thus 
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fairly  clear.  However,  string  handling,  error  handling,  and 
index  management  require  some  exposition. 

10.2.4.1  string  flanflllng 

As  noted  above,  the  DBIF  uses  the  string  chain  (CHN _ ) 

general  purpose  utilities  to  manage  a  string  buffer.  This 
buffer,  called  str,  is  3K  bytes  long,  and  stored  in  the  /strngs/ 
block.  A  typical  DBIF  routine  will  receive  a  field  list  in  the 
form  a  delimited  string  in  a  character  variable.  The  field  list 
must  be  lef t-j ustif ied  in  a  word-aligned  array  for  passage  to 
RELATE,  and  must  be  upper  cased.  The  routine  will  move  the  list 
into  a  (word- aligned)  area  of  str  via  a  call  to  the  lstrng 
un-delimit  utility,  will  uppercase  the  entire  area,  and  will  then 
pass  name  of  the  integer  array  equivalenced  to  str  to  the  given 
HLI  routine. 

10.2.4.2 

After  every  call  to  an  HLI  routine  the  DBIF  uses  dckerr  to. 
check  to  see  if  an  error  occurred  during  HLI  execution.  If  one 
did  (indicated  by  a  non-zero  value  of  the  first  word  of  the 
appropriate  cursor),  then  the  HLI  routine  rdberror  is  called  with 
a  request  to  print  the  RELATE  error  message  corresponding  to  the 
problem  which  occured,  and  dckcrs  is  called  to  print  the  status 
of  some  DBIF  variables. 

This  error  handling  is  one  of  the  greatest  benefits  of 
using  the  DBIF,  since  any  errors  which  occur  are  guaranteed 
detection  and  an  at  least  moderately  explicable  error  message. 

Note  that  the  DBIF  uses  lprnts  2  and  3,  and  that  quite 
extensive  running  diagnostics  of  DBIF  operations  are  generated  if 
these  are  both  set  to  .true. 

10.2.4.3 

When  a  user  specifies  an  index  in  an  rvcsrt,  rvcsts,  or 
rvcslc  call  several  things  must  happen,  all  of  which  are  managed 
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by  the  rstidx  routine.  First,  an  attempt  is  made  to  do  a  SET 
INDEX  via  a  call  to  dcgidx.  The  method  used  is  to  query  RELATE 
for  the  indexes  on  the  open  file,  doing  the  SET  for  the  first  one 
which  has  at  least  fields  matching  the  keys  requested.  Note  that 
if  the  request  is  for  SCENARIO,  CLASS,  and  the  two  indexes  on  the 
file  are  SCENARIO,  CLASS,  HULL  and  SCENARIO,  CLASS,  the  first  index 
will  be  the  one  chosen. 

If  this  fails,  the  routine  will  attempt  to  create  an  index. 
This  creation  will  always  fail,  since  all  relations  accessed 
through  the  DBIF  are  opened  with  MODE=  SHARED,  and  indexes  can 
only  be  created  when  the  user  has  exclusive  access.  Thus,  a 
permanent  index  must  exist  which  matches  the  request. 

After  a  successful  set,  the  length  of  the  index  fields  in 
words  is  determined  via  a  call  to  lenidx.  This  will  be  needed  if 
rtpcal  is  ever  called  on  the  given  relation,  because  the  number 
of  words  in  the  index  to  use  is  an  argument  to  the  rdbpoint 
routine. 

There  are  two  cases  in  which  this  length  will  not  just  be 
the  length  of  the  actual  index  used.  The  first  case  occurs  when, 
as  in  the  example  above,  the  number  of  words  in  the  requested 
index  is  less  than  the  number  in  the  index  used,  because  there 
are  "superfluous"  fields  in  the  actual  index.  It  is  very 
important  that  the  argument  to  rdbpoint  have  the  number  of  words 
implicitly  in  this  case:  since  the  programmer  has  no 

idea  which  index  will  be  chosen  by  the  DBIF,  he  will  have 
contructed  his  target  buffer  for  rtpcal  to  be  of  length  matching 
only  those  fields  in  his  index  request.  If  the  actual  index 
length  were  used,  his  points  would  always  fail. 

The  second  case  occurs  when  the  programmer  wants  to  point 
on  only  a  subset  of  the  index  requested.  He  can  do  this  by 
replacing  the  comma  following  the  last  field  he  want  included  in 
the  point  with  a  "|"  in  the  index  request  he  makes  to  rvcsrt, 
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rvcsts,  or  rvcslc.  The  number  of  words  stored  for  use  in 
rdbpoint  calls  must  in  this  case  match  the  size  of  the  fields 
named  before  the  "I”.  For  example,  a  request  for  index 
SCENARIO,  CLASS  I  HULL  would  yield  a  word  count  of  11,  not  12. 

10.2.5  Zzss&nsel 

In  addition  to  the  mechanics  of  data  base  access,  the  DBIF 
is  also  concerned  with  security  enforcement.  In  particular,  it 
is  the  last  line  of  defense  against  unauthorized  programmatic 
data  base  changes  (before  RELATE  security)  .  Every  DBIF  routine 
which  modifies  the  contents  of  relations  calls  the  rckprv  utility 
to  check  the  user's  priveleges  before  doing  so. 

Changes  may  be  disallowed  (leading  to  a  Z ABORT)  for  two 
reasons:  the  user  does  not  have  basic  DB  change  priveleges,  as 
specified  by  the  ALTDB  flag  in  the  sysusr.sysro  relation;  or  the 
scenario  the  user  is  currently  working  with  is  using  the  given 
relation's  data  indirectly,  an  access  method  which  forbids 
changes. 

Developers  should  call  the  ckwprv  logical  function  when 
they  open  a  relation  to  see  if  the  user  will  have  write 
priveleges,  and  abort  gracefully  if  not. 

The  scenario  system  is  also  supported  by  calls  to  the 
rvscen  routine  by  all  the  "rvc"  routines  when  they  open  a  rela¬ 
tion.  Rvscen  retrieves  the  proper  scenario  field  key  value  for 
the  current  scenario  for  the  given  relation  from  the  scenario 
system's  extra  data  segment  and  places  it  in  the  appropriate 
(cur  so  r_  index)  location  in  the  cur  sen  array  of  the  /scenar/ 
common  block  for  referening  by  application  routines. 

10.2.6 

If  it  should  be  necessary  to  modify  an  recompile  any  DBIF 
routines,  be  sure  to  re-create  the  dbif.obj  file  when  compilation 
is  complete.  Typically,  simple  compilation  of  any  portion  of  the 
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DBIF  will  not  result  in  changes  to  dbif.obj  (e.g.  compiling 
dbifa.src  with  the  normal  utilities  will  create  or  update 
dbif a.obj) .  Two  re-create  dbif.obj  from  the  four  constituent 
DBIF  source  libraries,  use  the  command  "GLUE  dbif”  at  the  MPE 
level. 

Note  that  any  new  routines  should  always  be  assigned  to 
segment  dbif. 
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10.2.7 


OBIF  UTILITY  ROUTINES 


C  CKWPRV  * . * . . . 

SCONTRQL  check*3, segment »db if 

LOGICAL  FUNCTION  ckwprv< modnam, filnam ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

character*20  modnam, f ilnam 

C*  ***  ABSTRACT  *** 

C#PURP0SE  Checks  to  see  if  user  has  write  privelege  for  the 
C  file  named  for  the  current  scenario.  Useful  at  top  of 
C  module  initialization.  Duplicates  logic  of  rvchek. 

Cf AUDIT  HISTORY 


c 

MSCarey 

20-sep-83  AUTHOR 

CiFORMAL 

PARAMETERS 

Cin 

modnam 

delimeted  name  of  module  test  being  performed 

C 

for.  If  of  nonzero  length,  ckwprv  writes  warning  on 

C 

lack  of  write  privelege. 

Cin 

f ilnam 

name  of  OB  file  to  test  priveleges  for 

CfCOMMON 

BLOCKS 

Cin 

uzrprv 

user  privelege  levels 

Cin 

scenar 

scenario  status  info 

Ci  n 

snrref 

scenario  set-up  info  and  function  declarations 

CiCALLER 

various 

CiMETHQD 

C  Uses  logic  similar  to  rvscen.  Find  name  of  file  in  list  of 
C  known  DB  files,  then  check  to  see  if  scenario  field  value  for 
C  that  file  matches  current  scenario  overall  name.  Also  check 
C  overall  user  privelege  levels. 

Ci# 
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DBIF  UTILITY  ROUTINES 


C  DCGDMN** . * . . . 

$CONTROL  segment*dbif ,check*3 

SUBROUTINE  dcgdmn< relatn, flist, fmtlst  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*255  relatn, f list , fmtlst 
C*  **♦  ABSTRACT  •** 

CtPURPOSE  change  domain  of  a  relation 
Cf AUDIT  HISTORY 

C  Densmore  12-0ec-82  AUTHOR 

CtTYPE  Database  low-level  interface  utility 

CtFORMAL  PARAMETERS 

Cin  relatn  OTS  relation  name 

Cin  flist  OTS  field  list 

Cin  fmtlst  DTS  format  list 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

CfMETHOD 

C  not  currently  allowed 
Cf# 
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DBIF  UTILITY  ROUTINES 


C  0CGI0X* . ***** . * . * . ***** 

$CQNTROL  segment*dbif ,check«3 

LOGICAL  FUNCTION  dcgidx< cursor , f list > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*Z55  flist 
INTEGER  cursor 

C*  ***  ABSTRACT  *** 

CtPURPOSE  sets  or  ChanGes  InDeXes  to  an  already  open  file 
CfAUDIT  HISTORY 

C  Qensmore  12-Dec-82  AUTHOR 

C#TYPE  Database  low-level  interface  utility 
C#F0RMAL  PARAMETERS 

Cin  cursor  cursor  index  to  an  open  path 

Cin  flist  DTS  field  list  defining  desired  index 

Cfunction  dcgidx  .TRUE,  if  the  desired  index  is  found 
CfCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CfMETHOO 

C  Carey  87-0ec-83  Now  uses  process  id-specific 

C  rdbinitx  RELATE  init  routine 

C  performs  SET  INDEX  <fieldlist> 

C« 
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DBIF  UTILITY  ROUTINES 


C  DCGTUP**** . * . ******* . 

SCONTROL  segment*dbif ,check*3 

SUBROUTINE  dcgtup< cursor, flist .source  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , source< 1  ) 

CHARACTER*2S5  flist 

C*  ***  ABSTRACT  *** 

CfPURPOSE  ChanGea  TUPle  (modifies) 

CtftUOIT  HISTORY 

C  Densmore  l2-0ec-82  AUTHOR 

CfTYPE  Database  low-level  interface  utility 
CtFORMAL  PARAMETERS 
Cin  cursor  cursor  index 

Cin  flist  DTS  names  of  fields  to  be  updated 

Cin  source  new  values  for  each  of  these  fields 

CfCOMMON  BLOCKS 

Cin/out  curars  cursor  buffers 

Cin/out  strnga  string  buffers 

CfMETHOD 

C  calls  rdbupdate 
C#* 
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DBIF  UTILITY  ROUTINES 


C  . . ******************** 

SCONTROL  segment*dbif , check-3 
SUBROUTINE  dcinit 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Database  Cursor  INITializat ion 
CiAUDIT  ^HISTORY 

C  Densmore  15-0ec-82  AUTHOR 

C#TYPE  Database  low-level  interface  utility 
CfFORMAL  PARAMETERS 
C  none 

CtCOMMON  BLOCKS 

Cout  cursrs  cursor  buffers 

Cout  strngs  string  buffers 

CtMETHOO 

C  initializes  all  chained  buffer  systems 
C## 
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DBIF  UTILITY  ROUTINES 


C  DCKCRS . * . . . * . 

SUBROUTINE  dckcrs(cursor,out  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor, out 

C*  *♦*  ABSTRACT  *** 

CKPURPOSE  ChecK  CuRSor ...  print s  locally  kept  cursor  information 
CfAUOIT  HISTORY 

C  Densmore  2S-0ec-82  AUTHOR 

CtTYPE  Database  low-level  interface  utility 
CfFORMAL  PARAMETERS 
Cin  cursor  index  to  cursor 

Cm  out  output  logical  unit  number 

CtCOMMON  BLOCKS 

Cin  cursrs  cursor  buffers 

Cin  indexs  index  buffers 

Ctt 
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DBIF  UTILITY  ROUTINES 


C  DCKERR******** . . . . . 

SCONTROL  segment*dbi f ,check*3 

LOGICAL  FUNCTION  dckerr< cursor  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 

C*  ***  ABSTRACT  *** 

CtPURPOSE  checks  for  any  errors  in  relate  processing 
Cf AUDIT  HISTORY 

C  Densmore  12-0ec-82  AUTHOR 

C#TYPE  Database  low-level  interface  utility 
CtFORMAL  PARAMETERS 
Cin  cursor  cursor  index 

Cfunction  dckerr  returns  true  if  an  error  exists 
CtCOMMON  BLOCKS 

Cin  cursrs  cursor  buffers 

C#METH00 

C  uses  rdberror ;  prints  error  information  on  RDBOUT  SSTDLIST 

C  no  error  exists  if  first  word  in  cursor  buffer  is  zero 

C## 


DBIF  UTILITY  ROUTINES 


C  OCSLCT*** . * . ******* . . 

SCONTROL  segment*dbif ,check*3 

SUBROUTINE  dcslct( cursor ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Database. . .CloSes  current  SeLeCT  virtual  cursor 
Cf AUDIT  HISTORY 

C  Oensnore  15-0ec-82  AUTHOR 

CfTYPE  Database  low-level  interface  utility 
CfFORMAL  PARAMETERS 

Cin/out  cursor  cursor  index  of  cursor  associated  with  the 
C  cursor  to  be  closed 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 
CtMETHOD 

C  see  SELECT  command. 

C#f 
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OBIF  UTILITY  ROUTINES 


C  OCSPTH********»****** *******  ###*#***#♦•********##*****# 

SCONTROL  segnent“dbif ,check*3 

SUBROUTINE  dcspth< cursor .pthnan  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 
CHARACTER*255  pthnan 

C*  ***  ABSTRACT  *** 

CtPURPQSE  closes  a  previously  open  path  and  its  cursor 
CtAUDIT  HISTORY 

C  Densnore  15-Qec-82  AUTHOR 

CfTYPE  Database  low-level  interface  utility 
CfFORMAL  PARAMETERS 

Cin/out  cursor  cursor  pointer  index 

Cin  pthnan  DTS  pathnane  to  be  closed 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CfMETHOO 

C  calls  CLOSE  PATH  relate  connand 
Ctt 


DBIF  UTILITY  ROUTINES 


C  OELCRS************************ ************************ 

SCONTROL  segmentadbif ,check*3 

SUBROUTINE  delcrs( cursor  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 

C*  ***  ABSTRACT  *** 

CfPURPOSE  closes  and  DELetes  CuRSor 
Cf AUDIT  HISTORY 

C  Densmore  12-0ec-82  AUTHOR 

C#TYPE  Database  low-level  interface  utility 
CfFORMAL  PARAMETERS 

Cin/out  cursor  cursor  index... set  to  zero  indicating  deallocation 
CiCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 
CtMETHOD 

C  closes  cursor;  deallocates  cursor  index 
C## 


DBIF  UTILITY  ROUTINES 


c  delidx************************************************ 

^CONTROL  segment“dbif ,check“3 

SUBROUTINE  delidx( cursor .relatn, flist  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*255  relatn, flist 
INTEGER  cursor 

C»  ***  ABSTRACT  *** 

C#PURPOSE  deletes  an  index  from  an  already  open  relation 
CfAUDIT  HISTORY 

C  Densmore  12-0ec-82  AUTHOR 

CtTYPE  Database  low-level  interface  utility 
CfFORMAL  PARAMETERS 

Cin  cursor  index  to  cursor  opened  under  the  pathname  RELATN 

Cin  relatn  DTS  relation  name 

Cin  flist  DTS  field-list  defining  index 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CSMETHOO 

C  call  set-index  using  flist;  then  calls 
C  rdbinfo  to  get  index  number  so  it  can  be  deleted. 

C## 
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OBIF  UTILITY  ROUTINES 


C  OELREL*********************** ***************** ******** 

$CONTROL  segment*dbi f , check-3 

SUBROUTINE  delrel ( cursor , relat n > 

O  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*20  relatn 
INTEGER  cursor 

C*  ***  ABSTRACT  *** 

CfPURPOSE  deletes  a  relation;  assumes  that  the  relation  is  open 
CfAUDIT  HISTORY 

C  Oensmore  12-0ec-82  AUTHOR 

CtTYPE  Oatabase  low-level  interface  utility 

C#F0RMAL  PARAMETERS 

Cin  cursor  index  to  cursor  opened  under  the  pathname  RELATN 

Cm  relatn  DTS  relation  name  to  delete 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

CfMETHOD 

C  Calls  for  a  PURGE  FILE  command. . .also  deallocates  cursor  resources 
Ctt 
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DBIF  UTILITY  ROUTINES 


C  DELTUP***#*'****,***********##-#**#'»*#**#4##***»hhhj**^^#* 
SCONTROL  segment»db i f , check*3 

SUBROUTINE  del tup< cursor ) 

c*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 

C*  ***  ABSTRACT  *** 

CtPURPOSE  deletes  the  current  tuple 
C#AUDIT  HISTORY 

C  Qensmore  12-Oec-82  AUTHOR 

C#TYPE  Database  low-level  interface  utility 

CSFORMAL  PARAMETERS 
Cin  cursor  cursor  index 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

CfMETHOD 

C  calls  rdbdelete 
CM 
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OBIF  UTILITY  ROUTINES 


C  DMKCRS . ******** . *•«••••*••••« 

SCONTROL  segment *db i f ,check*3 

INTEGER  FUNCTION  dmkcrs( dummy > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  dummy 

C*  ***  ABSTRACT  *** 

CtPURPOSE  retrieves  a  unique  cursor  index  from  chain  data  type 
C  and  initializes  the  cursor .. .Database  MaKe  CuRSor 

Ct AUDIT  HISTORY 

C  Densmore  12-0ec-82  AUTHOR 

CtTYPE  database  low-level  interface  utility 

CiFORMAL  PARAMETERS 
Cm  dummy  dummy  variable 

Cfunction  dmkcrs  a  unique  index  taken  from  the  crschn  chain  data 
C  type  which  indexes  a  cursor  in  the  array  crs  of 

C  RELATE  cursors.  This  integer  is  used  throughout 

C  the  RELATE  utilities  to  represent  a  cursor. 

CtCOMMON  BLOCKS 

Cm/out  cursrs  cursor  buffers 

CtMETHOD 

C  calls  chnalo. . .assumes  that  chain  is  initialized;  then 

C  initializes  the  indexed  cursor  via  RDBINIT 

Ct# 


OBIF  UTILITY  ROUTINES 


C  DMKIDX******* . #♦###*****♦ . . 

JCONTROL  segment*dbif ,check«3 

SUBROUTINE  dmkidx( cursor, re lain, f list .unary  ) 

O  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 
CHARACTER*255  relatn.flist 
LOGICAL  unary 

C*  ***  ABSTRACT  *** 

CSPURPOSE  Database  create  (MaKe)  InDeX  for  relate  system; 

C  the  relation  named  by  relatn  must  be  open. 

C#AUDIT  HISTORY 

C  Densmore  12-0ec-82  AUTHOR 

CfcTYPE  Oatabase  Lou-level  interface  utility 
CtFORMAL  PARAMETERS 

Cin  cursor  index  to  cursor  opened  under  the  pathname  RELATN 

Cin  relatn  DTS  name  of  relation 

Cin  flist  DTS  field  list  for  indexing  purposes 

Cin  unary  logical;  .TRUE,  if  no  key  may  be  duplicated  or 

C  allowed  in  index 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CtMETHOD 

C  forms  command  string,  calls  relate. 

C*t 
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OBIF  UTILITY  ROUTINES 


C  DMKREL*********** . . . * . * 

SCONTROL  segment«dbi f ,check»2 

INTEGER  FUNCTION  dmkrel ( relatn , pthnam , struct  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*255  relatn, pthnam 
CHARACTER* 1  struct* 600) 

C»  ***  ABSTRACT  *** 

CtPURPOSE  Database,  Makes  RELation;  returns  cursor 
CttAUDIT  HISTORY 

C  Densmore  22-Feb-83  Deleted  USEPTH  arg  so  that  high 

C  level  routines  easily  interface 

C  Carey  10-feb-83  Made  struct  an  array  to 

C  accommodate  big  field  lists. 

C  Densmore  12-0ec-82  AUTHOR 

CtTYPE  Database  low-level  interface  utility 

CSFORMAL  PARAMETERS 
Cin  relatn  DTS  relation  name 

Cin  pthnam  DTS  path  name,  if  not  same  as  relation  name 

Cin  struct  DTS  field  name  list  specifying  structure  of  relation 

Cfunction  dmkrel  cursor  index  to  the  new  cursor  constructed. 

CfCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CtMETHOD 

C  creates  new  cursor;  creates  command;  calls  relate. 

CSS 
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DBIF  UTILITY  ROUTINES 


C  DMKTUP***** ************ . * . * . . . *** 

SCONTRQL  segment*dbif ,check“3 

INTEGER  FUNCTION  dmktup< cursor , list , source  ) 

C*  **•  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , source< 1  ) 

CHARACTER*255  list 

C»  ***  ABSTRACT  *** 

CfPURPOSE  Database  MaKe  TUPle  —  adds  tuple  to  relation  pointed 
C  to  by  cursor. 

CtAUDIT  HISTORY 

C  Densmore  14-Dec-82  AUTHOR 

CfTYPE  Database  low-level  interface  utility 
C#F0RMAL  PARAMETERS 

Cin  cursor  index  to  a  cursor  from  the  pool 

Cin  list  OTS  list  of  fields  in  tuple  to  be  added 

Cin  source  array  of  data  referenced  by  list  to  be  added  as 

C  the  new  tuple 

Cfunction  dmktup  returns  success  index... 0  means  successful; 

C  1  means  unary  violation;  2  means  file  full  (EOF) 

C4C0MM0N  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffer  variables 

C#METHOD 

C  word  aligns  list,  then  calls  rdbadd 
C## 
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OBIF  UTILITY  ROUTINES 


C  DOPPTH . * . ******* . . 

$CONTROL  segment-dbif ,check«3 

INTEGER  FUNCTION  doppth< relatn .pthnam > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER»255  relatn.pthnam 

C*  **«  ABSTRACT  *** 

CfPURPOSE  opens  a  path  to  the  named  relation 
C# AUDIT  HISTORY 

C  Oensmore  lS-Oec-82  AUTHOR 

C  Carey  5-may-83  open  all  files  in  shared  mode 

CtTYPE  Oatabase  low-level  interface  utility 

CtFORMAL  PARAMETERS 

Cin  relatn  OTS  relation  name 

Cin  pthnam  OTS  path  name 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CtMETHOD 

C  calls  OPEN  PATH  relate  command 
Ct# 


DBIF  UTILITY  ROUTINES 


C  DPCMD** ***************** ********* . * . ******** 

SCQNTROL  segment“dbif , check»3 

SUBROUTINE  dpcmd< cursor , rout  in , kstr , len ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*6  rout  in 
INTEGER  len, cursor 
C  ***  INTEGER  kstr<  (len+l)/2  ) 

INTEGER  kstr(ien) 

C*  **♦  ABSTRACT  *** 

CtPURPOSE  For  use  when  LPRNT  3  is  on  to  print  RELATE  commands  issued 
CtAUDIT  HISTORY 

C  Densmore  14-Feb-83  AUTHOR 

C4TYPE  diagnostic 

C4F0RMAL  PARAMETERS 

Cm  cursor  cursor  index 

Cin  rou-tin  character*6  routine  name 

Cin  kstr  integer  array  containing  characters  of  cmd 

Cin  len  number  of  characters  in  kstr 

CtCOMMON  BLOCKS 

Cin  Iprnts  diagnostic  flags  ard  ioutp 

CtCALLER  all  D. . .  relate  routines 

Ct# 
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OBIF  UTILITY  ROUTINES 


C  OPCMOl . ******* . ***** . 

SCONTROL  segi*>ent»db  i  f  ,  check“3 

SUBROUTINE  dpcmdl < cursor , rout  in  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*6  rout  in 
INTEGER  cursor 

C*  »**  ABSTRACT  *** 

CfPURPOSE  Like  OPCMO ,  except  for  zero  length  character  strings 
CSAUDIT  HISTORY 

C  Densnore  14-Feb-83  AUTHOR 

C#TYPE  diagnostic 

CfFORMAL  PARAMETERS 

Cin  cursor  cursor  index 

Cin  rout  in  routine  name 

CtCOMMON  BLOCKS 

Cin  Iprnts  diagnostic  flags  and  ioutp 

C#CALLF°  all  0...  routines 


D8IF  UTILITY  ROUTINES 


C  DREWNO . * . * . 

SCONTROL  segment”dbif ,check*3 

SUBROUTINE  drewnd< cursor ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS 

INTEGER  cursor 

C*  ***  ABSTRACT 

CtPURPQSE  rewinds  relation  corresponding  to  cursor  • 
CtAUOIT  HISTORY 

C  Densnore  02-Feb-83  AUTHOR 

CtTYPE  low-level  relate  database  utility 

CtFORMAL  PARAMETERS 

Cin  cursor  cursor  to  be  rewound 

CiCALLER  rvcrwd 

CtMETHOD 

C  Calls  RDBPOINT  with  rewind  flag  set. 

C## 


*  ** 

*  *  * 


DBIF  UTILITY  ROUTINES 


C  DSOPEN** ******** ****** . ***♦ 

SCONTROL  segment*dbi f ,check*3 

INTEGER  FUNCTION  dsopen( eras , ncras > 


c* 

***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  nerss , crss( nerss  ) 

C* 

***  ABSTRACT  *** 

CfPURPOSE  Ini ta  a 

new  cursor  and  opens  files  associated  with  each  ers 

CtAUOIT 

HISTORY 

C 

Densmore 

23-Mar-83  AUTHOR 

CtTYPE 

low  level  RELATE  database  utility 

CSFORMAL 

PARAMETERS 

Cin 

eras 

cursor  index  for  each  cursor  associate  with  a  file 

Cin 

nerss 

length  of  erss 

CtCOMMON 

BLOCKS 

Cin/out 

cursrs 

cursor  buffers 

CtCALLER 

rvcslc 

CtMETHOD 

C  loops 

over  cursors  getting  current  db  number;  retrieves  full 

C  filename  using 

rdbinfo  again;  opens  each  file  on  the  new  cursor 

CtLQCAL 

VARIABLES 

C 

iers 

do  index 

c 

cursor 

each  eras  value 

c 

ndb 

database  number 

c 

len 

length  of  dbname 

c 

lemd 

length  of  command 

c 

info 

info  array  for  rdbinfo  (dbname) 

c 

dbname 

full  file  name  for  database  (info) 

c 

comand 

full  RELATE  command  (icmd) 

c 

icmd 

integer  version  of  (comand) 

C## 
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DBIF  UTILITY  ROUTINES 


C  OSLECT*** **************************** ***************** 

^CONTROL  segment-dbif , check-2 

SUBROUTINE  dslect < cursor , tgt 1st , unique, key 1st, cond) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

L06ICAL  unique 
INTEGER  cursor 

CHARACTER*255  tgt 1st , key  1 st , cond 
C*  ***  ABSTRACT  *** 

CtPURPOSE  implements  RELATE’ s  select  command 
Cf AUDIT  HISTORY 

C  Densmore  lS-0ec-82  AUTHOR 

CfTYPE  Database  low-level  interface  utility 
CfFORMAL  PARAMETERS 

Cm  cursor  cursor  index  for  cursor  on  which  select  is  to  be  done 

Cin  tgtlst  DTS  target  list,  indicating  what  fields  should  be 

C  returned  and  the  values  they  should  assume;  in 

C  the  form  namel  C  *expr  K  ,  name20expr  1  ] .  .  . 

Cin  unique  LOGICAL  indicates  that  selection  results  unique 

C  values  in  the  key  list 

Cin  keylst  DTS  names  of  fields  on  which  selection  is  sorted 

C  optional  unless  unique  is  TRUE;  avoid  specification 

C  via  the  OTS  ’  =  =  ’ 

Cin  cond  DTS  condition  which  created  virtual  tuples  should 

C  be  returned. 

CtCOMMON  BLOCKS 

Cm/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CSMETHOD 

C  performs  RELATE  select  command 
C## 


DBIF  UTILITY  ROUTINES 


C  DTCALC *************************************** ********* 

SCONTROL  segment*dbif , check*3 

SUBROUTINE  dtcalc<  cursor , keyval , not  f nd  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , keyval ( 1  ) 

LOGICAL  notfnd 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Calculates  position  of  next  tuple 
CtAUOIT  HISTORY 

C  Oensmore  21-Feb-83  Add  RDBINFO  to  retrieve  I  key  I 

C  Densmore  18-Feb-83  Remove  FLIST, TUPLE  arguments 

C  Densmore  lS-0ec-82  AUTHOR 

CtTYPE  Database  low-level  interface  utility 

C1F0RMAL  PARAMETERS 

Cin  cursor  cursor  index 

Cin  keyval  key  value  to  search  for 

Cout  notfnd  not-found  flag  —  .TRUE,  if  tuple  not  found 

CfCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CiMETHQD 

C  retrieves  length  of  KEYUAL  from  crsxi,  then  calls  RDBPOINT 
Ctt 
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DBIF  UTILITY  ROUTINES 


C  DTNEXT********************** ***************  *********** 

SCONTROL  segment«dbif ,check*3 

SUBROUTINE  dtnext < cursor ,flist, tuple, eof  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , tup le( 1  ) 

CHARACTER*255  flist 
LOGICAL  eof 

C*  ***  ABSTRACT  *** 

C1PURPOSE  Returns  next  tuple  associated  with  cursor 
C#AUDIT  HISTORY 

C  Densmore  15-Oec-82  AUTHOR 

C&TYPE  Database  low-level  interface  utility 

CtFORMAL  PARAMETERS 

Cin/out  cursor  cursor  index 

Cin  flist  DTS  field  list 

Cout  tuple  destination  for  next  tuple 

Cout  eof  returns  TRUE  if  no  next  tuple,  FALSE  otherwise 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  strngs  string  buffers 

CSMETHOO 

C  Calls  rdbread 
C  tt 
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DBIF  UTILITY  ROUTINES 


C  LENIDX . * . 

SCONTRQL  segment«dbif ,check»2 

SUBROUTINE  lenidx< cursor , indx , newidx > 

C*  ♦  **  FORMAL  PARAMETER  DECLARATIONS  *** 

INTE6ER  cursor 
CHARACTER*!  indx(l) 

LOGICAL  neuidx 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Sets  the  uord  length  of  an  index  in  a  cursor 
Cf AUDIT  HISTORY 

C  Densmore  22-Mar-83  AUTHOR 

CfTYPE  low-level  RELATE  database  utility 

CfFORMAL  PARAMETERS 
Cin  cursor  cursor  index 

Cin  indx  DTS  string  describing  index... not  used 

C  if  the  cursor  has  no  current  index 

Cin  neuidx  .TRUE,  if  this  index  was  just  created 

C  and  therefore  must  have  length-max len 

C*COMMON  BLOCKS 

Cin  cursrs  cursor  buffers 

C4CALLER  rvc...  with  sort  requests 
CtMETHOD 

C  Lots  of  ROBINFO  calls. 

C  Assumes  that  the  index  in  question  is  the  current  index 
C  and  that  indx  describes  it. 

C 

C  First,  the  filenumber  and  indexnumber  are  retrieved  by 
C  an  info  call  using  the  cursor  (current  path).  If  there  is  no 
C  index  then  it  is  assumed  crsxl  is  to  be  set  to  the  number 
C  of  uords  in  a  tuple.  Otherwise,  set  crsxl  to  the  number 
C  of  uords  in  the  index  described  by  the  fields  in  indx. 

C  Now,  the  current  index  has  been  set  using  indx,  but 
C  RELATE  is  such  that  there  may  be  MORE  fields  in  the  current 
C  index.  This  occurs  whenever  an  index  already  exists  whose 
C  first  N  fields  match  the  N  fields  given  in  indx.  In 
C  this  case,  only  the  sum  of  the  number  of  words  in  the  first 
C  N  fields  of  the  index  should  be  used  in  setting  crsxl. 

CtLOCAL  VARIABLES 

C  info  returned  info  from  RDBINFO  (except  field  numbers) 

C  fieldn  returned  field  numbers  from  RDBINFO  ( 1 1 1-quantity  ) 

C  indexn  index  number  for  this  path 

C  filen  file  number  for  this  path 

C  maxlen  maximum  possible  length  (words)  for  index 

C  excess  number  of  extra  words  given  as  index  length 

C  presumably  to  include  the  line  number  field 

C  length  length  for  this  index 

C  count  number  of  commas  plus  one,  in  indx  —  ie. 

C  the  number  of  fields  m  the  index  actually  used 


OBIF  UTILITY  ROUTINES 


C  RCINIT***** . ******* . 

#CONTROL  segment»dbif ,check*3 
SUBROUTINE  rcinit 

C*  *»*  ABSTRACT  *** 

CtPURPOSE  Initialize  RELATE  Cursor  system  for  database  interfacing 
CtAUOIT  HISTORY 

C  Oensmore  17-0ec-82  AUTHOR 

CfTYPE  RELATE  Database  High-Level  Interface  Utility 

CfCOMMON  BLOCKS 

Cout  indexs  index  buffers 

C«t 


DBIF  UTILITY  ROUTINES 


C  RCKPRU . * . * . ********* . * 

9CONTROL  segment «dbi f , check*3 

LOGICAL  FUNCTION  rckprv< cursor , path > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor 
character*Z0  path 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Checks  user  write  privelege  on  call  to  a  relate 
C  utility  routine  which  will  change  a  relation's  contents 
Cf AUDIT  HISTORY 

C  MSCarey  10-sep-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  cursor  relate  cursor  index 

Cin  path  name  of  the  path  for  this  cursor 

CfCOMMON  BLOCKS 

Cin  scenar  current  scenario  information 

C#CALLER  high-level  relate  utilities 
CtMETHOD 

C  Write  a  message  if  no  write  privelege  and  return. 


OBIF  UTILITY  ROUTINES 


C  RELCOM . . . ********* 

SCONTROL  check*2 , segnent«dbif 

SUBROUTINE  relcom< incurs, conand > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  incurs 
character  conand(1020> 


C*  ***  ABSTRACT  ♦** 

Cf PURPOSE  Executes  a  RELATE  conand. 

CtAUDIT  HISTORY 

C  MSCAREY  09-aug-83  AUTHOR 

CfFORMAL  PARAMETERS 


Cin  incurs 

C 

C 

C4C0MM0N  BLOCKS 


cursor  usage  code:  l-mccrs  indicates  use 
specified  cursor;  >nccra  indicates  use  any 
open  cursor. 


Cin  cursrs  relate  cursors 

Cin  lprnts  debug  switches 

CfCALLER  various 
CfMETHOO 

C  Check  the  cursor  code  and  set  the  cursor  to  use. 
C  Extract  the  conand  from  the  deiinited  string. 

C  Make  the  call  to  RELATE,  and  check  for  errors. 
CtLOCAL  UARIABLES 
C  !  ! 

Ctt 


."1 


— al 
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OB IF  UTILITY  ROUTINES 


C  RSTIDX******* . * . . . 

$CONTROL  segment-dbif ,chack*3 

SUBROUTINE  rstidx(rtn,cursor,relatn, f list  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 

CHARACTER  rtn*S,  relatn«255,  fiist*255 
C*  **♦  ABSTRACT  *** 

CSPURPOSE  For  RUC  sort  open  routines,  SeTs  up  InOeXes 
CtAUOIT  HISTORY 

C  Qensmore  lS-Jun-83  AUTHOR 

CtTYPE  RELATE  Database  utility  for  High-Level  routines 

C*F0RMAL  PARAMETERS 

Cin  rtn  name  of  calling  routine 

Cin  cursor  the  cursor  just  opened  by  calling  routine 

Cin  relatn  DTS  relation  name  for  the  cursor 

Cin  flist  OTS  field  list  far  the  (possibly  new)  index 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  indexs  index  buffers 

Cin  lprnts  diagnostic  block 

CtCALLER  rvcsrt,  rvcsts 

CtMETHOD 

C  Calls  dcgidx  with  full  fieldlist.  If  dcgidx  fails,  then  the 
C  desired  index  is  known  not  to  exist:  it  is  created,  and  the 
C  corresponding  fieldlist  is  stored  in  the  idx  array.  When 
C  dcgidx  succeeds  it  means  that  the  index  will  not  be  destroyed 
C  when  rvclos  is  called  to  close  the  cursor. 

C 

C  When  the  fieldlist  includes  a  vertical  bar  (!)  in  place  of 
C  exactly  one  of  the  commas  < ,  )  delimiting  the  field  names,  it 
C  means  that  the  caller  desires  the  index  to  be  opened  as  before, 
C  but  that  only  the  fields  up  to  the  bar  are  to  be  used  when  any 

C  calcs  are  performed.  In  this  way,  one  may  allow  calcs  to 

C  certain  fields,  and  then  guarantee  ordered  sequential  reads 

C  for  the  following  fields  even  though  the  latter  fields  are  not 

C  included  in  the  calc.  This  is  implemented  by  searching  for  the 
C  !  character  and  using  a  different  index  length  (lenidx). 

C*L0CAL  VARIABLES 

C  ibar  location  of  vertical  bar;  0  if  none 

C  indx  place  where  idx  buffer  is  located  in  idx  array 

Ctt 


DBIF  UTILITY  ROUTINES 


C  RTPAOO . * . . . * . 

•CONTROL  segment»dbif ,check*2 

SUBROUTINE  rtpadd( cursor, f list , source  > 

C*  #**  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor,source< 1 ) 

CHARACTER*255  flist 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Relate  TuPle  ADDition:  adds  tuple  to  current  relation 
Cf AUDIT  HISTORY 

C  Densmore  17-0ec-8Z  AUTHOR 

CfTYPE  RELATE  Database  High-Level  Interface  Utility 

CtFORMAL  PARAMETERS 

Cin  cursor  cursor  index  for  current  relation 

Cin  flist  field  list  for  tuple 

Cin  source  source  for  neu  data 

C*METHOD 

C  Calls  DMKTUP 

Ct* 


DBIF  UTILITY  ROUTINES 


C  RTPCAL****** . * . * . * . 

SCONTROL  segment*dbif , check»2 

SUBROUTINE  rtpcal< cursor , keyval , f list , dast , not fnd > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor, keyval( 1  ),dest( 1 ) 

CHARACTER*2S5  flist 
L06ICAL  notfnd 

C*  ♦**  ABSTRACT  *** 

CtPURPOSE  Relate  TuPle  CALculate:  calculates  by  key-value  the  next  tuple 
C  desired  from  the  current  relation. 

Cf AUDIT  HISTORY 

C  Qensmore  17-Qec-82  AUTHOR 

CfTYPE  RELATE  Database  High-Level  Interface  Utility 

CtFORMAL  PARAMETERS 


Cin  cursor 

Cin  keyval 

C 

Cin  flist 

Cout  dest 

Cout  notfnd 

CfMETHOO 
C  Calls  dtcalc 
Ct* 


cursor  index  for  the  current  relation 
value  of  the  key  for  the  tuple  desired:  the  current 
relation  must  be  indexed  by  this  key 
field  list  for  tuple 
output  tuple  <DESTination> 

Logical  indicating  if  the  tuple  uas  NOT  FouNO 
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DBIF  UTILITY  ROUTINES 


C  RTPDEL . ****** . 

SCONTROL  segment«dbif ,check»3 

SUBROUTINE  rtpdel < cursor > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

INTEGER  cursor 

C*  *♦*  ABSTRACT  *** 

CtPURPOSE  Relate  TuPle  DELete:  deletes  current  tuple  in  current  relation 
CtAUOIT  HISTORY 

C  Oensmore  17-0ec-82  AUTHOR 

CtTYPE  RELATE  Database  High-Level  Interface  Utility 

CiFORMAL  PARAMETERS 

Cin  cursor  cursor  index  for  the  current  relation 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 
CfMETHOD 
C  Calls  deltup 
C«S 
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OB IF  UTILITY  ROUTINES 


C  RTPKIL***** . *** . ***** . * . 

$CONTROL  segment*dbi  f  ,check*2 

SUBROUTINE  rtpkil<  cursor , keyval , not  fnd  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , keyval ( 1 ) 

LOGICAL  not fnd 

C*  **♦  ABSTRACT  *** 

CfPURPOSE  finds  and  deletes  (KILls)  the  tuple  whose  key  is  keyval 
CSAUDIT  HISTORY 

C  Dens.iore  18-Feb-83  AUTHOR 

C#TYPE  high-level  relate  utility 
CSFQRMAL  PARAMETERS 
Cin  cursor  cursor  index 

Cin  keyval  key  value  —  must  correspond  to  current  index 

Cin  not fnd  true  if  NOT  FouNO 

Ctt 


IO-I95 


OBIF  UTILITY  ROUTINES 


C  RTPNEW* ********** ******** . . . ******* . 

SCONTROL  segment-dbif, check-2 

INTEGER  FUNCTION  rtpnew< cursor , f list , source  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , source! 1  ) 

CHARACTER*25S  flist 

O  ***  ABSTRACT  *** 

CfPURPOSE  Relate  TuPle  NEW-add  NEW  tuple  to  curnt  relation;  returns  node 
CtAUDIT  HISTORY 

C  Densnore  23-Mar-83  AUTHOR 

CfTYPE  high  level  relate  DB  utility 
CfFORMAL  PARAMETERS 
Cin  cursor  relate  cursor 

Cin  flist  field  list 

Cin  source  source  data  making  up  tuple 

Cfunction  rtpneui  0-succeasful  add  1-unary  violation 

C  2-EOF — no  room  to  add  tuple  in  file 

Ctt 


DBIF  UTILITY  ROUTINES 


C  RTPNFD**** . . . ***** . * . ********* 

SCQNTRQL  segment*dbif ,check*2 

SUBROUTINE  rtpnf d< cursor , key val , flist, dest, fnd,eof  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , keyval( 1  ), dest ( 1 > 

CHARACTER*255  flist 
LOGICAL  fnd,eof 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Relate  TuPle  Not  Found:  calculates  by  key-value  the  next  tuple 

C  desired  from  the  current  relation,  expecting  NOT  to  match 

C  the  key  value.  Then  reads  and  returns  the  record 

C  which  the  failed  point  left  us  at,  i.e.  the  next 

C  greatest  value  of  the  key.  Similar  to  RTPCAL. 

C*AUOIT  HISTORY 

C  MSCarey  31-may-83  AUTHOR 

CtTYPE  RELATE  Database  High-Level  Interface  Utility 

CtFORMAL  PARAMETERS 

Cin  cursor  cursor  index  for  the  current  relation 

Cin  keyval  value  of  the  key  for  the  tuple  desired;  the  current 

C  relation  must  be  indexed  by  this  key 

Cin  flist  field  list  for  tuple 

Cout  dest  output  tuple  < OESTihat ion ) 

Cout  fnd  Logical  indicating  that  an  exact  match  on  the 

C  key  value  was  found,  which  is  an  error  here. 

Cout  eof  True  if  the  point  left  us  at  the  end  of  the 

C  relation,  with  no  tuple  to  return. 

CtMETHQQ 
C  Calls  dtcalc 
C## 
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OBIF  UTILITY  ROUTINES 


C  RTPNXT*** **************** . * . 

#CONTROL  segment“dbi f ,check*2 

SUBROUTINE  rtpnxt(cursor, flist ,dest ,eof  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor, deat( 1  ) 

CHARACTER*255  flist 
LOGICAL  eof 

C*  *•*  ABSTRACT  *** 

CtPURPOSE  Relate  TuPle  NeXT:  obtain  next  tuple  in  sequence  from 
C  current  relation. 

Cf AUDIT  HISTORY 

C  Oensmore  17-0ec-82  AUTHOR 

C#TYPE  RELATE  Database  High-Level  Interface  Utility 

CtFORMAL  PARAMETERS 

Cin  cursor  cursor  index  for  current  relation 

Cin  flist  field  list  for  tuple 

Cout  dest  output  tuple  < DESTinat ion ) 

Cout  eof  Logical  indicating  if  no  more  tuples  are  available 

C3COMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

CSMETHOD 
C  Calls  dtnext 
Cf* 


DBIF  UTILITY  ROUTINES 


C  RTPREP . ** . ***** . 

SCONTROL  segment»dbi f ,check»2 

SUBROUTINE  rtprep<  cursor , keyval , flist, source, not  fnd  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , keyval < 1 ) , source< 1 ) 

CHARACTER*2S5  flist 
LOGICAL  not fnd 

C*  ***  ABSTRACT  *** 

CtPURPOSE  finds  tuple  whose  key  value  is  keyval;  replaces  it  w/  source 
Cf AUDIT  HISTORY 


C  Densmore  18-Feb-83 
CfTYPE  high-level  relate  utility 
CtFORMAL  PARAMETERS 


AUTHOR 


cursor 
keyval 
flist 
source 
not fnd 


cursor  index 

key  value  —  corresponds  to  current  index 
field  list  to  which  tuple  source  data  corresponds 
source  data  for  the  tuple  to  be  updated 
True  if  tuple  was  NOT  FouNQ 


OBIF  UTILITY  ROUTINES 


C  RTPUPO*********** . * . 

SCONTROL  segment *dbi f ,check«2 

SUBROUTINE  rtpupd<  cursor , f list , source  ) 

O  *«*  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor,source< 1  ) 

CHARACTER *255  flist 

C*  **«  ABSTRACT  *** 

CfPURPOSE  Relate  TuPle  UPDate:  modify  the  value  of  the  current  tuple 
C  in  the  current  relation. 

CfAUOIT  HISTORY 

C  Densmore  17-Dec-82  AUTHOR 

CSTYPE  RELATE  Database  High-Level  Interface  Utility 

CfFQRMAL  PARAMETERS 

Cin  cursor  cursor  index  for  the  current  relation 

Cin  flist  field  list  for  tuple 

Cin  source  source  for  new  tuple  data 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

C#METH00 
C  Calls  dcgtup 
Ctt 


OB IF  UTILITY  ROUTINES 


C  RVCLOS . . . *#****•#*.* . . . 

ICONTROL  9egment*dbif ,check*3 

SUBROUTINE  rvclos< cursor > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Relate  Virtual  Cursor  CLOSe;  close  the  current  relation 
Cf AUOIT  HISTORY 

C  Densnore  l7-Dec-82  AUTHOR 

CfTYPE  RELATE  Oatabase  High-Level  Interface  Utility 

CfFORMAL  PARAMETERS 

Cin/out  cursor  cursor  index  for  current  relation!  set  to  zero 
CfCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  indexs  index  buffers 

CtMETHOD 

C  Depending  on  cursor  type,  calls  dcspth  or  dcslct. 

C  If  an  index  uias  created  during  opening,  it  Is  purged  via  delidx. 


DBIF  UTILITY  ROUTINES 


C  RUCFIL******* . . . . 

•CONTROL  segment -db i f , check«2 

INTEGER  FUNCTION  rvcfiKrelatn, struct  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*255  relatn, struct 

C*  *#*  ABSTRACT  *** 

CtPURPOSE  to  CREATE  a  new  relation  with  structure  STRUCT 
CfAUOIT  HISTORY 

C  Densmore  22-Feb-83  AUTHOR 

CtTYPE  high-level  relate  utility 

CtFORMAL  PARAMETERS 

Cin  relatn  relation  name  —  0T5 

Cin  struct  the  relation  structure  —  DTS  (see  RELATE  manual) 

CtCOMMON  BLOCKS 

Cin/out  cursor  cursor  buffers 

C*t 


DBIF  UTILITY  ROUTINES 


C  RUCKIL . * . * . 

*CONTROL  segment-dbif ,check*3 

SUBROUTINE  rvckilicursor.relatn ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 
CHARACTER*Z55  relatn 

O  *♦*  ABSTRACT  *** 

CtPURPOSE  PURGES  the  relation  named  and  all  its  indexes 
CfAUOIT  HISTORY 

C  Densmore  23-Feb-83  AUTHOR 

CtTYPE  high-level  relate  utility 

CtFORMAL  PARAMETERS 

Cin  cursor  cursor  index 

Cin  relatn  relation  name  (file  name) 

CfCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 
Cin/out  indexs  index  buffers 

Cin  lprnts  diagnostics 

CfMETHOD 

C  cursor  must  not  be  from  a  selection;  deallocates  index  buffers; 
C  calls  delrel  to  delete  relation  and  deallocate  cursor  buffers. 
CS* 


OBIF  UTILITY  ROUTINES 


C  RVCPTH . . . 

SCONTROL  segment*dbif ,check*2 

INTESER  FUNCTION  rvcpth< relatn, synym, struct  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*255  relatn, synym, struct 
C*  ***  ABSTRACT  *** 

CtPURPOSE  Relate  Virtual  Cursor  PaTH;  CREATES  a  relation  under  a 
C  synonymous  name. 

CtAUDlT  HISTORY 

C  Densmore  22-Feb-83  AUTHOR 

CtTYPE  RELATE  Database  High-Level  Interface  Utility 

CtFORMAL  PARAMETERS 

Cin  relatn  Delimited  Text  String  giving  relation  name 

Cin  synym  Delimited  Text  String  giving  desired  synonym 

Cin  struct  OTS  structure  spec  as  in  RVCFIL 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 
CfMETHOD 

C  Calls  dmkrel  and  cursor  type  is  noted 


OB IF  UTILITY  ROUTINES 


C  RVCREL*** . * . * . 

SCONTROL  segment*dbif ,check*3 

INTEGER  FUNCTION  rvcrel < relatn ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*20  relatn 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Relate  Virtual  Cursor  open  RELation:  opens  a  relation 
CtAUOIT  HISTORY 

C  Oensnore  17-0ec-82  AUTHOR 

CfTYPE  RELATE  Oatabase  High-Level  Interface  Utility 

C3F0RMAL  PARAMETERS 

Cin  relatn  Oelinited  Text  String  specifying  name  of  relation 

Cfunction  rvcrel  a  cursor  index  to  the  new  relation 
CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 
CtMETHOO 

C  Calls  doprel  and  notes  cursor  type. 

Ctt 
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OB IF  UTILITY  ROUTINES 


C  RVCRWD . ♦ . * . ***** . 

*CONTROL  segment-dbi f ,check»3 

SUBROUTINE  rvcrwd< cursor ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor 

C*  **♦  ABSTRACT  *** 

CtPURPOSE  Relate  Virtual  Cursor  ReWinO1  rewind  current  relation 
C*AUDIT  HISTORY 

C  Densnore  17-0ec-82  AUTHOR 

CiTYPE  RELATE  Database  High-Level  Interface  Utility 

CtFORMAL  PARAMETERS 

Cin  cursor  cursor  index  for  current  relation 

CfCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

CfMETHOD 
C  calls  dreund. 

Ctt 
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OBIF  UTILITY  ROUTINES 


C  RVCSLC . ******* . . . * . 

^CONTROL  segment*dbif ,check»3 

INTEGER  FUNCTION  rvcslc(  tgtin, unique, keyin.condin  ) 

C*  *#*  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*255  tgtin, keyin,condin 
LOGICAL  unique 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Relate  Virtual  Cursor  SeLeCtion:  performs  a  SELECT  operation 
CtAUDIT  HISTORY 

C  Densmore  17-0ec-82  AUTHOR 

CtTYPE  RELATE  Database  High-Level  Interface  Utility 

CtFORMAL  PARAMETERS 

Cin  tgtin  Delimited  Text  String  indicating  uhat  fields  should 

C  TGTLST  be  returned,  and  the  values  they  should  assume; 

C  Format:  namelC»expr ][ ,name2I*expr ]] . . . 

Cin  unique  Logical  indicating  that  selection  should  result  in 

C  unique  values  in  the  key  list  keylst;  forces  the 

C  specification  of  keylst 

Cin  keyin  Delimited  Text  String  names  of  fields  on  which  the 

C  KEYLST  selection  is  to  be  sorted;  optional  unless  unique 

C  is  True;  avoid  specification  via  the  DTS  ’  ' 

Cin  condin  Delimited  Text  String  giving  the  condition  under 

C  COND  which  any  virtual  tuples  created  by  this  select 

C  should  be  returned  as  part  of  the  select 

Cfunction  rvcslc  virtual  cursor  index  pointing  to  the  cursor 
C  associated  with  the  selection  results 

CtCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

C*METHOD 

C  First,  figures  out  which  cursors  need  to  be  associated  with 
C  the  new  SELECT  cursor.  Currently,  all  open  cursors  are  used. 

C  Then,  dslect  is  called  to  perform  the  selection  command. 

C## 
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DBIF  UTILITY  ROUTINES 


C  RVCSRT***** . ***** 

SCONTRQL  segment*dbif ,check*3 

INTEGER  FUNCTION  rvcsrt< relatn , f list > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTERISE  relatn, f list 

C*  **♦  ABSTRACT  »** 

CtPURPOSE  Relate  Virtual  Cursor  via  SoRT--  opens  a  new  relation  sorted 
C  via  a  specified  key 

Cf AUDIT  HISTORY 

C  Densmore  17-Dec-82  AUTHOR 

CtTYPE  RELATE  Database  High-Level  Interface  Utility 

CfFORMAL  PARAMETERS 

Cin  relatn  Delimited  Text  String  naming  the  relation 

Cin  flist  Delimited  Text  String  naming  the  fields  which  form 

C  the  key  upon  which  to  sort 

C  The  vertical  bar  ( !  >  has  significance  when  it 

C  appears  in  this  argument  as  described  in  RSTIDX. 

Cfunction  rvcsrt  cursor  index  to  cursor  associated  with  the  named 
C  relation/index  pair 

CfCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  indexs  index  buffers 

CtMETHOO 

C  Calls  doppth,  then  dcgidx.  If  dcgidx  fails,  the  index  is 
C  created  via  dmkidx,  and  this  fact  is  noted. 


DBIF  UTILITY  ROUTINES 


C  RVCSTS . ***** . *** . * . * 

SCONTROL  segment»dbif ,check*3 

INTESER  FUNCTION  rvcsts(relatn, synym, flist > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*255  relatn, synym, flist 
C*  ***  ABSTRACT  *** 

CtPURPOSE  Relate  Virtual  Cursor  via  SorT;  return  Synonym--  opens  a  new 
C  relation  sorted  via  a  specified  key  and  returns  the  cursor 

C  associated  with  a  synonym  to  that  relation 

CfAUOIT  HISTORY 

C  Oensmore  l7-0ec-82  AUTHOR 

C#TYPE  RELATE  Database  High-Level  Interface  Utility 

CtFORMAL  PARAMETERS 

Cin  relatn  Delimited  Text  String  naming  the  relation 

Cin  synym  Delimited  Text  String  naming  synonym 

Cin  flist  Delimited  Text  String  naming  the  fields  which  form 

C  the  key  upon  which  to  sort 

C  The  vertical  bar  <  I  )  character  has  meaning  in 

C  this  arg  as  defined  by  RSTIDX 

Cfunction  rvcsts  cursor  index  to  cursor  associated  with  the  named 
C  synonym/ index  pair 

CfCQMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 

Cin/out  indexs  index  buffers 

CfMETHOD 

C  Calls  doppth,  then  dcgidx.  If  dcgidx  fails,  the  index  is 
C  created  via  dmkidx,  and  this  fact  is  noted. 

Ctt 


DBIF  UTILITY  ROUTINES 


C  RUCSYN******** . . . ***** . . 

SCONTROL  segment-dbif, check-3 

INTEGER  FUNCTION  rvcsyn< relatn, synyn  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACT£R*255  relatn,synym 

C*  **♦  ABSTRACT  **« 

CfPURPOSE  Relate  Virtual  Cursor  SYNonym;  opens  a  relation  under  a 
C  synonymous  name. 

Cf AUDIT  HISTORY 

C  Densmore  l7-0ec-82  AUTHOR 

CiTYPE  RELATE  Database  High-Level  Interface  Utility 

CfFORMAL  PARAMETERS 

Cin  relatn  Delimited  Text  String  giving  relation  name 

Cin  synym  Delimited  Text  String  giving  desired  synonvm 

CfCOMMON  BLOCKS 

Cin/out  cursrs  cursor  buffers 
CSMETHOD 

C  Calls  doppth  and  cursor  type  is  noted 
Ctt 


DBIF  UTILITY  ROUTINES 


C  RUSCEN  *•»***#******#♦**#*#*#*#*****#*♦***************# 
SCQNTROL  segment*dbif ,check“3 

SUBROUTINE  rvscen( cursor , type , file  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor.type 
character*20  file 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Checks/sets  user  access  flags  to  the  relation 
C  being  requested,  and  sets  the  scenario  field  key  value 
C  for  this  relation  for  the  current  scenario. 

CtAUDIT  HISTORY 

C  MSCarey  10-sep-S3  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  cursor  utility  system  cursor  index 

Cm  type  cursor  type  <1,  2,  or  3) 

Cin  file  name  of  relation  to  be  processed 

CtCOMMON  BLOCKS 

Cin  senprm  scenario  system  parameters 

Cin  uzrprv  user  privelege  information 

Cin  snrref  field  key  values  for  each  relation 

Cio  scenar  current  scenario  settings 

CtCALLER  relate  utilities  which  open  cursors 

C#METH0D 

C  Set  write  privelege  flag  for  this  cursor  according  to 
C  user  priveleges. 

C  Make  sure  the  filename  has  a  group  suffix. 

C  Search  snrlnm  (extended  memory)  for  a  match  of  the  filename 
C  On  finding  a  match,  set  curseni cursor  )  to  snrlsn( match  ) 

C## 
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10.3  BUILDER- CALLABLE  FORTRAN  UTILITIES 

This  Section  presents  FORTRAN  utility  routines  designed  to 
serve  BUILDER  screens,  with  an  emphasis  on  the  routines  likely  to 
be  of  interest  to  developers  of  any  BUILDER-based  ALIAS  module. 
All  the  routines  were  originally  developed  to  serve  the  DBU. 

Source  code  for  the  routines  can  be  found  in  the  slproc.src 
and  sldate.src  files.  Object  code  processable  by  PREP  is  not 
maintained;  run^time  linkable  object  code  is  maintained  in  the 
account  Segmented  Library  (si. pub).  Update  of  the  contents  of 
si. pub  is  accomplished  by  compiling  both  source  code  files  into 
Soldpass,  and  then  running  the  Segmenter  via  the  "GLUE  addsl" 
command.  Note  that  any  new  routines  must  be  compiled  into  the 
"dsa"  segment. 

A  Segmented  Library  is  the  source  for  program  unsatisfied 
externals  at  run  time.  By  calling  the  proper  intrinsics,  a 
program  can  even  link  routines  after  execution  has  begun. 

BUILDER  must  do  this  in  order  to  implement  the  CALL  PROCEDURE 
facility,  since  it  has  no  idea  what  routines  might  be  called 
until  the  moment  it  interprets  a  CALL  PROCEDURE  line.  Note  that 
routines  in  an  SL  may  not  contain  common,  data,  read,  or  write 
statements.  Global  storage  requirements  must  be  met  through  use 
of  BUILDER  memory  or  extra  data  segments.  For  more  information 
about  SLs,  see  the  Segmenter  manual  for  the  HP  3000. 

Table  10-7  contains  an  annotated  listing  of  all  the 
routines  which  reside  in  the  SL.  The  following  sections  will 
discuss  selected  routines  by  purpose.  See  Section  10.3.6  for 
abstracts  of  the  SL  routines,  which  contain  detailed  calling 
specif  ications. 

The  BUILDER  manual  section  on  CALL  PROCEDURE  specifies  that 
FORTRAN  routines  to  be  called  must  have  three  formal  parameters: 
a  50-word  integer  array  for  the  current  cursor,  a  "table"  of 


ROUTINE 

ABTRNS 

BGTRNS 

CALCDATE 

CDTODD 

CUR IN  I 
CURSWP 


DATEMK 

DCLRFY 

DDTOCD 

DDTOID 

DLTRIM 

DOTRNS 

DR  TRIM 

DRUNED 

DRUNTDP 

DSAFETCH 


Table  10-7.  BUILDER- Call able  Routines  in  the  SL 

PURPOSE 


Aborts  a  transaction  on  all  son  RELATE  son  processes 
started  up  via  the  file  management  subsystem.  See 
the  RELATE  reference  manual  for  a  discussion  of  what 
transactions  are. 

Like  ABTRNS,  but  a  global  BEGIN  TRANSACTION. 

Specialty  routine  serving  the  PROJ_NQ_SKED  DBU 
screen.  Allows  quick  recalculation  of  ship  schedule 
dates  given  a  basis  date  and  a  set  of  planning 
factors  (intervals  between  milestones) . 

Character  Date  TO  DDate.  Same  as  utility  of  same 
name  in  RL.  In  SL  only  to  allow  use  by 
BUILDER-called  routines. 

These  two  routines  form  the  FORTRAN  part  of  the 
mul tipi e-RELATE-son- process  relation  management 
system.  This  system  is  usable  from  any  BUILDER 
module,  not  just  the  DBU.  The  only  restriction  is 
that  each  user  of  the  system  must  specify  a  unique 
value  of  the  SCREENSYS  Job  Control  Word.  See  Section 
8.4 .3 .2  for  further  detail  on  the  system.  CURINI 
initializes  a  file  management  system  invocation, 
CURSWP  swaps  a  cursor  from  the  system's  storage  in  an 
extra  data  segment  into  a  BUILDER  partition. 

Date  utility  routines  virtually  identical  to  their 
counterparts  of  the  same  names  in  UTLR  (see  Section 
10.1).  In  SL  to  allow  usage  by  BUILDER-called 
routines. 

Similar  to  ltrim  in  UTLR.  Integer  function  returning 
the  leftmost  non-blank  character  of  a  string. 

Similar  to  ABTRNS  above,  but  does  a  global  COMMIT 
TRANSACTION  command. 

Similar  to  rtrim  in  UTLR.  Integer  function  returning 
the  rightmost  non-blank  character  in  a  string. 

These  routines  create  son  processes  running  the  HP 
and  TDP  editors,  respectively.  They  are  obsolete  now 
that  BUILDER  can  transparently  create  son  processes 
for  you  when  you  give  :RUN  commands. 

Moves  a  string  from  a  specified  word  address  into  an 
integer  array.  Useful  when  the  CALL  PROCEDURE  needs 
to  be  read  using  the  contents  of  the  third  formal 
parameter . 


Table  10-7.  BUILDER- Call  able  Routines  in  the  SL 


ROUTINE 


DSAGETC 


DSAPUT 


GETSCENV 


GETVAR 


IDTODD 
L  MONTH 
MODCOR 
MRKDAY 
NWDATU 
NWIDAT 

PREPREPT 


PUTVAR 


SPSUSP 


PURPOSE 


Same  as  dsafetch,  but  transfers  string  from  a  byte 
address  into  a  character  array. 

Transfers  a  character  string  value  to  a  given  address 
in  BUILDER  memory. 

This  routines  takes  a  relation  name  and  a  screen 
variable  name  from  the  CALL  PROCEDURE  line,  looks  up 
the  relation  and  its  associated  current  scenario  key 
field  value  in  the  scenario  system  extra  data 
segment,  and  puts  this  value  into  the  given  screen 
variable.  The  routine  is  necessary  to  enforcement  of 
scenario  security  in  any  BUILDER-based  module. 

Retrieves  the  (ASCII)  contents  of  a  screen  variable 
specified  by  name  and  places  them  in  a  character 
variable. 

More  date  routines  identical  to  their  UTLR 
counterparts.  These  duplicates  are  here  in  the  SL 
so  they  can  be  called  by  the  BUILDER- cal  led  routines. 
See  Section  10.1  for  a  description  of  each. 


A  pre-processor  for  RELATE  EXECUTE  files  giving 
authors  of  such  files  the  capability  to  enforce 
scenario  security.  Preprept  opens  and  reads  a  file 
named  on  its  CALL  PROCEDURE  line,  echoing  the  file's 
records  to  a  temporary  file.  It  searches  each  record 
for  instances  of  "  [relation. group] ",  looks  up  each 
such  relation  name  found  in  the  scenario  system  extra 
data  segment,  and  substitutes  the  appropriate  key 
value  between  (and  including)  the  brackets.  Thus 
selections  can  be  given  to  limit  the  data  returned  to 
that  of  a  particular  scenario,  without  know  which 
scenario  in  advance. 

Like  getvar,  but  writes  the  contents  of  a  FORTRAN 
character  variable  to  the  address  of  a  screen 
variable  specified  by  name. 

Suspends  the  current  BUILDER  process  and  activates 
its  father.  Useful  for  ary  module  which  it  is 
desirable  to  put  on  "hold"  (as  opposed  to  termination 
by  the  BUILDER  EXIT  command)  when  the  user  returns  to 
the  command  system,  as  the  DBU  is. 


unspecified  length  which  contains  pointers  into  the  BUILDER 
memory  map,  and  an  array  of  addresses  and  lengths  which  allow 
access  to  the  interpreted  text  of  the  CALL  PROCEDURE  line. 

In  order  for  a  BUILDER-called  FORTRAN  routine  to  be  truly 
useful,  there  must  be  a  means  for  passing  data  between  the  screen 
and  the  routine.  The  transfer  can  be  done  by  file/relation  i/o, 
but  this  is  clumsy.  Much  more  convenient  is  copying  of  data 
between  BUILDER  variables  and  variables  local  to  the  routine. 

The  PUTVAR  and  GETVAR  utilities  make  use  of  the  information 
in  the  second  formal  parameter  to  implement  such  a  capability. 

The  author  of  the  FORTRAN  routine  need  only  know  the  name(s)  of 
the  screen  variable  (s)  to/from  which  data  is  to  be  transferred. 
Note  that  BUILDER  stores  all  data  in  an  ASCII  format,  regardless 
of  the  type  declaration  in  the  screen,  so  type  conversion  will  be 
necessary  within  the  routine  for  numeric  data.  See  the  abstracts 
of  these  routines  for  specifics  about  the  table  of  pointers  into 
the  BUILDER  memory  map  if  you  are  interested  in  that. 

A  more  primitive  but  occasionally  useful  capability  is 
provided  by  accessing  the  text  of  the  CALL  PROCEDURE  line.  This 
can  be  done  by  proper  use  of  the  DSARTRIM  routine.  DR  TRIM  and 
DLTRIM  are  useful  in  parsing  the  string  extracted  through  use  of 
dsartrim.  See  the  code  of  the  preprept  or  getscenv  routines  for 
examples  of  how  this  is  done. 

10 .3 .2 

One  of  the  most  serious  problems  facing  the  designer  of  a 
BUILDER- based  ALIAS  module  is  the  matter  of  scenario  security. 
Like  any  other  module,  these  must  not  access  or  change  data  for 
scenarios  other  than  the  user's  current  one,  and  no  modifications 
can  be  allowed  to  data  in  relations  that  have  only  indirect 
access  status  for  the  given  scenario. 
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In  a  FORTRAN  module  use  of  the  DBIF  to  open  and  operate  on 
relations  automatically  places  the  proper  scenario  field  key 
value  for  each  open  relation  in  the  /scenar/  common  block,  making 
it  fairly  easy  to  construct  selections  or  point/read  strategies 
which  return  only  the  proper  data.  However,  none  of  these 
facilities  are  avail  able  from  BUILDER. 

The  GETSCENV  and  PREPREPT  routines  solve  these  problems  by 
extracting  scenario  field  key  values  from  the  scenario  system 
extra  data  segment  in  the  same  way  that  DBIF  routines  do. 

Getscenv  takes  a  relation  name  and  a  screen  variable  name 
and  returns  the  scenario  field  key  value  for  that  relation  for 
the  current  scenario  into  the  screen  variable.  This  allows  the 
screen  designer  to  construct  selects  and  point/read  strategies  in 
a  way  that  maintains  scenario  security. 

Designers  of  reports  in  the  form  of  RELATE  EXECUTE  files, 
run  from  BUILDER,  are  able  to  enforce  scenario  security  by  use  of 
the  PREPREPT  routine.  The  problem  again  is  to  construct  a  WHERE 
clause  of  the  form  WHERE  SCENARIO- "key.  value",  where  the 
key. value  is  the  one  appropriate  to  the  given  relation  and  scen- 
ario.  When  preprept  is  available,  this  can  be  done  reliably  by 
substituting  the  phrase  [relation. group]  for  key.value.  Given 
the  EXECUTE  file  name,  preprept  will  read  the  file,  echoing  to  a 
temporary  named  DBURTEMP.  Whenever  it  encounters  a  relation  name 
in  brackets,  it  will  search  the  scenario  system  extra  data  seg¬ 
ment  for  the  key.value  currently  appropriate  for  that  relation, 
and  will  substitute  that  value  for  the  bracketed  expression.  The 
screen  can  then  EXECUTE  DBURTEMP. 

10.3.3  £11  fl_ Management 

The  DBU  file  management  subsystem  was  discussed  in  detail 
in  Section  8.4  .3  .2.  It  allows  a  BUILDER-based  module  to  use  a 
large  number  of  relations  simultaneously  by  operating  multiple 
RELATE  son  processes.  The  subsystem  was  designed  in  a  manner 
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that  allows  it  to  be  used  by  several  concurrently  existing 
BUILDER  processes,  the  only  restriction  being  that  each  use  a 
unique  value  £or  the  SCREEN SYS  Job  Control  Word. 

The  subsystem  consists  of  the  CURINI  and  CURSWP  routines 
for  relation/partition  management,  and  the  ABTRNS,  BGTRNS,  and 
DOTRNS  routines  for  global  transaction  management. 

10.3.4  Process  Handling 

BUILDER-based  modules  which  it  is  desirable  to  have  exist 
permanently  (in  a  suspended  state)  when  the  user  is  exercising  a 
different  part  of  the  system  may  call  the  SPSUSP  routine  to 
suspend  themselves  without  terminating.  Note  that  the  process 
creation/activation  logic  must  also  be  properly  arranged  in  the 
mrunp  routine. 

10.3.5  other  Capabilities 

A  quite  DBU-specific  utility,  CALCDATE,  was  created  to 
perform  schedule  date  recalculations  for  the  PROJ_Nq_SKED  screen. 
Although  unlikely  to  be  of  use  to  other  modules,  a  large  number 
of  date  utility  routines  were  duplicated  (from  UTLR)  to  serve 
calcdate.  These  may  prove  useful  to  screens  with  heavy  date- 
processing  requirements. 

10.3.6  Abgtra.cta-f.pi.  SL... aoutioea 

Only  abstracts  for  routines  not  duplicated  from  UTLR  appear 
in  this  section.  See  Section  10.1  for  descriptions  of  the  date 
utilities  (and  (d)rtrim  and  (d)ltrisa)  found  in  si. pub. 


10-217 


BUILDER-CALLABLE  UTILITY 
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C  ABTRNS . . . . . . 

•control  segment«dsa 

SUBROUTINE  abtrna<cursor,table,pointr  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor (SB  ), tablet  1 ) , point r(  4  > 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Ooes  a  relate  ABORT  TRANSACTION  on  all  active 
C  RELATE  son  processes  EXCEPT  that  started  up  by  the  builder. 

CtAUOIT  HISTORY 

C  MSCarey  09-jan-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  all  arguments  from  builder  CALL  PROCEDURE  facility 

CfCOMMON  BLOCKS 
C  none 

CtCALLER  OBU  via  CALL  PROCEDURE 
C1METHOD 

C  Retrieve  the  cursor  storage  data  segment,  which  contains 

C  ids  of  all  active  relate  son  processes  in  words  51-100,  and 

C  pointers  to  the  locations  of  cursors  open  on  each  of  these 

C  processes  m  words  101-1S0.  In  each  case,  a  value  of  0  terminates 

C  the  list  of  data  for  active  sons.  Retrieves  the  info  for  each  of 

C  these  cursors  in  turn  and  gives  the  ABORT  TRANSACTION  command. 
CfLQCAL  VARIABLES 
C  procs 

Ztt 


son  process  ids  (1-S0),  pointers  to  cursors  (51-100) 


BUI LOER-C ALL ABLE  UTILITY 
ROUTINES  IN  THE  SL 


C  8GTRNS  . . * . ***** . * . . 

•control  segment*dsa 

SUBROUTINE  bgtrns<  cursor , table, pointr > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor< 50>,table<l),pointr<4> 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Does  a  relate  BEGIN  TRANSACTION  on  all  active 
C  RELATE  son  processes  EXCEPT  that  started  up  by  the  builder. 

C# AUDIT  HISTORY 

C  MSCarey  09-jan-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  all  arguments  from  builder  CALL  PROCEDURE  facility 

CUCOMMON  BLOCKS 
C  none 

CtCALLER  DBU  via  CALL  PROCEDURE 
CtMETHOO 

C  Retrieve  the  cursor  storage  data  segment,  which  contains 
C  ids  of  all  active  relate  son  processes  in  words  51-100,  and 

C  pointers  to  the  locations  of  cursors  open  on  each  of  these 

C  processes  in  words  101-150.  In  each  case,  a  value  of  0  terminates 

C  the  list  of  data  for  active  sons.  Retrieves  the  info  for  each  of 

C  these  cursors  in  turn  and  gives  the  BEGIN  TRANSACTION  command. 

Cf LOCAL  VARIABLES 

C  procs  son  process  ids  (1-50),  pointers  to  cursors  (51-100) 
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C  CALCDATE . . . ******** 

•CONTROL  segment «daa 

SUBROUTINE  calcdate( cursor , table .pointr > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor( SO  ), tablet  41  ),pointr( 4  ) 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Implements  the  ESC  R  function  for  projected 
C  new  construction  schedules  OBU  screen;  recalculates 
C  schedule  dates  using  planning  factors. 

C4AUDIT  HISTORY 

C  MSCarey  02-apr-84  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  cursor  current  OBU  cursor 

Cin  table  primary  builder  memory  table 

Cin  pointr  pointers  to  call  procedure  line  text 

C4C0MM0N  BLOCKS 

C  none 

CtCALLER  OBU,  screen  PR0J_NC_SKED 
C4METH00 

C  Set  the  test  from  the  call  procedure  line;  first  argument  is 

C  name  of  variable  which  is  basis  date;  second  argument  is  basis 

C  date. 

C  Load  planning  factors  from  builder  memory. 

C  Call  ascdaysl  for  each  date. 

C  Place  the  new  date  in  the  proper  variable  in  builder  memory. 

CtLOCAL  VARIABLES 

C  maxdat  max  number  of  schedule  dates  processable 

C  basind  index  number  of  the  basis  date 

C  basnam  name  of  the  basis  date 

C  basdat  value  of  the  basis  date,  ddate  format 

C  timunt  time  units  specification 

C  dlist  list  of  dates  to  be  processed,  in  ascending  order 

C  plist  list  of  planning  factors,  in  ascending  order 

C  day  ddate  representat ion  of  each  new  date 

C  datnam  name  of  each  date  to  process 

C*# 
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C  CURINI . * . ***** 

{CONTROL  segment-dsa,uslinit 

SUBROUTINE  curini< cursor, table,pointr) 
integer  cursor<  S3  > , tabie< 1 )  ,pointr<  4  > 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Initializes  a  set  of  cursors  for  use  by  the  data 
C  entry  system.  Works  in  concert  with  CURSWP  to.  Allows  use 

C  of  multiple  RELATE  processes  as  sons  of  the  builder. 

C  Compiled  code  resides  in  SL.PUB 
CfAUOlT  HISTORY 

C  MSCarey  30-sep-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  cursor  cursor  array  used  by  screen  system 

Cin  table  global  data  storage  table  for  screen  system 

Cin  pointr  pointers  to  argument  from  call 

CtCOMMON  BLOCKS 
C  none 

C  data  segment  format  is- 

C  location  0-9  index  of  cursor  now  in  use  by  system 

C  by  builder  USE  cursor  id  number 

C  location  50-10000  by  50’s*  cursor  data  arrays 

CtCALLER  CRI  builder  application  files 
CfMETHOO 

C  Routines  resident  in  an  SL  may  not  have  global  data 
C  declarations.  The  screen  system  multiple  cursor  facility 

C  simulates  global  storage  for  the  cursors  by  using  an 
C  extra  data  segment.  This  routine  initializes  that  data 
C  segment . 

C 

C  The  id  of  the  data  segment  WAS  taken  from  the  argument  supplied 

C  on  the  CALL  PROCEDURE  line  in  the  application  file.  This 

C  argument  must  be  numeric  >0  and  <32767. 

C  A  bug  in  the  builder  now  prevents  this.  JOB  CONTROL  WORDS 

C  are  currently  used  to  communicate  the  id  number  of  the  cursor 

C  desired,  the  id  number  of  the  USE  cursor  to  be  swapped  into,  and 

C  the  id  number  of  the  son  process  to  use. 

C 

C  The  routine  does  not  actually  initialize  any  cursors;  this  is 

C  done  by  CURSWP  when  it  detects  a  50-word  data  segment  area 

C  which  is  not  yet  initialized.  This  routine  writes  codes  into 
C  a  word  of  each  cursor  area  which  tell  CURSWP  that  no 
C  rcinitx  call  has  yet  been  dune.  A  0  is  placed  in  word  48, 

C  which  RELATE  uses  to  store  son  process  id’s  in.  This  word 

C  will  never  be  0  once  rcinitx  has  been  called  for  a  cursor. 

CtLOCAL  VARIABLES 

C  numcur  number  of  cursors  usable  by  system 

C  newcur,lcurs  array  of  cursors  to  be  initialized  and  stored 

C  inuse  cursor  currently  in  use  by  system 

C  iarg,carg,arg  argument  from  call  in  various  forms 


BUILDER-CALLABLE  UTILITY 
ROUTINES  IN  THE  SL 


C  CURSUP  ********************************************* 

SCONTROL  segment*dsa 

SUBROUTINE  curswp< cursor , table, pointr > 

C*  ***  FORMAL  PR  DECLARATIONS  *** 

integer  cursor< 50 >,tabie<l  )  ,pointr<  4 ) 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Swaps  the  cursor  currently  in  use  by  the  screen 
C  system  into  cursor  memory  and  brings  in  the  cursor 
C  requested  in  the  argument  attached  to  the  CALL  PROCEDURE  call 

C  to  this  routine  < NOW  READS  JCW).  See  CURINI.  Compiled  code 

C  resides  in  SL.PUB 

CfAUDIT  HISTORY 

C  MSCarey  30-sep-83  AUTHOR 

CfFGRMAL  PARAMETERS 

C  Currently  in  use  by  screen  system 

Cin  table  screen  system  global  memory  table 

Cin  pointr  pointers  to  argument  of  CALL  PROCEDURE 

CtCOMMON  BLOCKS 
C  none 

CSCALLER  CRI  builder  application  files 
CtMETHOO 

C  no  Parse  the  argument,  whose  format  is  Q.C,  where  D  is  the 
C  no  id  of  the  data  segment  specified  in  a  dsacursorimt  call, 

C  no  and  C  is  the  index  of  the  cursor  which  the  application  wishes 
C  no  swapped  in  for  its  use. 

C 

C  Retrieve  the  SCREENSYS,  NUMSWAP,  CURSORNUM,  AND  CURSORPROC 
C  Job  Control  Words,  which  specify  the  cursor  memory  data 

C  segment  id,  the  id  of  the  builder  USE  cursor  to  be  swapped,  . 

C  the  id  number  of  the  cursor  to  be  swapped  into  ’numswap', 

C  and  the  son  process  id  code  to  be  given  to  rdbimtx  if 
C  'cursornum'  is  not  yet  initialized. 

C 

C  Set  the  index  of  the  data  segment,  swap  out  the  current  cursor, 
C  and  swap  in  the  one  desired. 

C« 
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C  DOTRNS  *********************************************** 

Scontrol  segment*dsa 

SUBROUTINE  dotrns( cursor , tab le , pointr  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor< 50>,table(l  )  ,pointr( 4 ) 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Ooes  a  relate  COMMIT  TRANSACTION  on  all  active 
C  RELATE  son  processes  EXCEPT  that  started  up  by  the  builder. 

C# AUDIT  HISTORY 

C  MSCarey  09-jan-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  all  arguments  from  builder  CALL  PROCEDURE  facility 

CfCOMMON  BLOCKS 
C  none 

C#CALLER  DBU  via  CALL  PROCEDURE 
C*METHOO 

C  Retrieve  the  cursor  storage  data  segment,  which  contains 
C  ids  of  all  active  relate  son  processes  in  words  51-100,  and 

C  pointers  to  the  locations  of  cursors  open  on  each  of  these 

C  processes  in  words  101-150.  In  each  case,  a  value  of  0  terminates 

C  the  list  of  data  for  active  sons.  Retrieves  the  info  for  each  of 

C  these  cursors  in  turn  and  gives  the  COMMIT  TRANSACTION  command. 
CtLOCAL  VARIABLES 

C  procs  son  process  ids  (1-50),  pointers  to  cursors  <51-100) 

Ctt 
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C  DRUNED  ********************************************** 
SCONTROL  segment*dsa 

SUBROUTINE  druned<  cursor, table, pointr  ) 

C»  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor<  50  >,table(l),pointr(4) 

C*  ***  ABSTRACT  ♦  ** 

CfPURPOSE  Runs  HP  editor  as  a  son  of  the  screen  system. 
CltAUDIT  HISTORY 

C  MSCarey  25-nov-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  cursor  relate  cursor  in  use  at  time  of  call 

Cin  table  screen  system  io  table 

Cin  pointr  pointers  to  call  parameter  info 

C1CALLER  BUILDER  procedure 

CfMETHOO 

C  Call  to  system  intrinsic  CREATE 
CfLOCAL  VARIABLES 

C  pin  son  process  id  number 

C  flag  argument  to  create;  value  of  1  causes  screen 

C  reactivation  when  son  teminates. 

Ctt 
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BUILDER-CALLABLE  UTILITY 
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C  ORUNTOP  . . . . . 

^CONTROL  segment*dsa 

SUBROUTINE  drunt dp ( cursor ,table,pointr) 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor(50  >, table* 1  )  ,pointr( 4  > 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Runs  TOP  editor  as  a  son  of  the  screen  system.. 
CftAUOIT  HISTORY 

C  MSCarey  25-nov-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  cursor  relate  cursor  in  use  at  time  of  call 

Cin  table  screen  system  io  table 

Cin  pointr  pointers  to  call  parameter  info 

CfCALLER  BUILDER  procedure 

C4METH0D 

C  Call  to  system  intrinsic  CREATE 
CfLOCAL  VARIABLES 

C  pin  son  process  id  number 

C  flag  argument  to  create;  value  of  1  causes  screen 

C  reactivation  when  son  teminates. 

C## 
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C  DSAFETCH************* ************* . * . ******** 

SCONTROL  segment*dsa,check*0 

SUBROUTINE  dsafetch( data, datal an, address , length  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  datalen, data( datalen  > , address ( 1  ) , length 
C*  ***  ABSTRACT  *** 

CfPURPOSE  Converts  the  pointer  information  provided  by  the 
C  CRI  screen  application  builder  CALL  PROCEDURE  facility 
C  into  an  integer  argument  string  usable  by  fortran. 

Cf AUDIT  HISTORY 

C  MSCarey  28-sep-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cout  data  argument  string,  integer  form 

Cin  datalen  max  length  of  string  in  words 

Cin  address  array  mapped  onto  stack  location  where 

C  argument  string  is  stored 

Cin  length  length  of  argument  string  in  bytes 

CfCOMMON  BLOCKS 

C  none 

CtCALLER  dsapoint , dsacursorimt , dsausecursor 
CttMETHOO 

C  Calling  routines  provide  a  target  array  (data)  which  this 
C  routine  transfers  the  argument  into. 

C  Calling  routines  receive  the  word  address  in  the  stack  of  the 
C  argument  data  in  an  integer  word.  By  denoting  this  as  a  call- 

C  by-value  argument  (syntax  )  in  the  calling  routine, 

C  while  causing  dsafetch  to  think  it  is  a  normal  cali-by- 

C  reference,  the  address  array  in  this  routine  is  mapped  onto 

C  the  proper  location  in  the  stack. 

C** 
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C  DSA6ETC  . . * . * . . 

SCONTROL  segment“dsa,check*0 

SUBROUTINE  dsagetc( data, address , length  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

character*l  data< length  > .address ( length  ) 
integer  length 

C*  ***  ABSTRACT  *** 

C#PURPOSE  Converts  the  pointer  information  provided  by  the 
C  CRI  screen  application  builder  CALL  PROCEDURE  facility 
C  into  a  character  argument  string  usable  by  fortran. 

CfAUDIT  HISTORY 

C  MSCarey  28-sep-83  AUTHOR 

C3F0RMAL  PARAMETERS 

Gout  data  argument  string,  character  form 

Cin  address  array  mapped  onto  stack  location  where 

C  argument  string  is  stored 

Cin  length  length  of  argument  string  in  bytes 

C1C0MM0N  BLOCKS 

C  none 

CtCALLER  dsapoint , dsacursor ini t , dsausecursor 
CtMETHOO 

C  Calling  routines  provide  a  target  array  (data)  which  this 
C  routine  transfers  the  argument  into. 

C  Calling  routines  receive  the  byte  address  in  the  stack  of  the 

C  argument  data  in  a  character  word.  By  denoting  this  as  a  call- 

C  by-value  argument  (syntax  )  in  the  calling  routine, 

C  while  causing  dsagetc  to  think  it  is  a  normal  call-by- 

C  reference,  the  address  array  in  this  routine  is  mapped  onto 

C  the  proper  location  in  the  stack. 

Ctt 
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C  OSAPUT**************************** . * . . 

•CONTROL  segment*dsa, check-0 

SUBROUTINE  dsaput ( data, da talen, address , length  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

integer  datalen, data<  da talen  ), address ( datalen  > , length 
C»  ***  ABSTRACT  *** 

CfPURPOSE  Writes  'data'  to  the  given  address  in  builder  memory. 

Cf AUDIT  HISTORY 

C  MSCarey  28-sep-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cout  data  argument  string,  integer  form 

Cin  datalen  max  length  of  string  in  words 

Cin  address  array  mapped  onto  stack  location  where 

C  argument  string  is  stored 

Cin  length  length  of  argument  string  in  bytes 

C3COMMON  BLOCKS 

C  none 

CfCALLER  dsapoint , dsacursorini t , dsausecursor 
CtMETHOD 

C  Calling  routines  provide  a  target  array  (data)  and  an  address. 
C  The  call-by-value/check-®  trick  is  used  to  make  this  routine 

C  see  the  address  as  a  fortran  array  into  which  it  can  write. 

C  See  also  routine  dsafetch. 

C*# 
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C  6ETSCENV  *************************** . ************ 

^CONTROL  segment "dsa 

SUBROUTINE  getscenv( cursor , table, pointr ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor( 50  ),table<l>,pointr(4> 

C*  ***  ABSTRACT  ♦** 

C4PURP0SE  Takes  a  DB  relation  name  and  a  target  variable 
C  name  as  input,  finds  the  scenario  field  value  for  that 

C  relation  for  the  current  scenario,  and  places  the  value 

C  in  the  target  variable. 

C4AU0IT  HISTORY 

C  MSCarey  17-mar-84  AUTHOR 

C4F0RMAL  PARAMETERS 

Cin  cursor  current  builder  cursor 

Cin  table  builder  memory  map 

Cin  args  pointer  to  file  name  to  process 

C4C0MM0N  BLOCKS 
C  none 

CtCALLER  builder  procedures 
C4METH00 

C  Use  dsafetch  to  get  the  argument  text. 

C  Get  the  file  name  from  the  argument  string. 

C  Look  through  the  scenario  extra  data  segment  and  get  the 
C  proper  field  value. 

C  Get  the  target  variable  name. 

C  Use  putvar  to  place  the  value  into  the  given  variable  in 
C  builder  memory. 

CtLOCAL  VARIABLES 

C  filnam  name  of  report  template  file,  with  group  suffix 

C  com  command/ filename  string 

C  rec  record  read  from  input  file 

C  sname  file  name  read  from  scenario  data  segment 

C  seen  scenario  field  value  for  given  file 

C  name  name  of  target  file,  as  parsed  from  input  record 

C  filin,filout  MPE  file  numbers  for  input  and  output  files 

C«# 
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C  GETUAR  *********************************** . ****** 

SCONTROL  segment»dsa 

SUBROUTINE  get var( table, varnam, value , val din, len  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  valdim,table(41 ) , len 
character*16  varnan, value*( valdim  ) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Retrieves  the  value  of  a  variable  in  builder  memory. 
CtAUDIT  HISTORY 

C  MSCarey  02-apr-84  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  table  builder  memory  map  start 

Cin  varnam  name  of  variable  to  look  for 

Cout  value  value  of  variable  found 

Cout  len  length  of  variable's  storage  area 

C4C0MM0N  BLOCKS 
C  none 

C4CALLER  builder  procedures 
CfMETHQQ 

C  see  routine  putvar 
Ztt 
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C  PREFREPT  ********************************************* 
SCONTROL  segment*dsa 

SUBROUTINE  preprept (cursor, table, pointr > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor<  50 ) , table< 1 ) ,pointr( 4  ) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Takes  a  file  name,  opens  and  reads  the  file, 

C  substituting  proper  scenario  field  values  for  every 

C  occurrence  of  {file. group) ,  and  writes  the  result  to 

C  temporary  file  OBURTEMP,  overwriting  it  if  there. 

C  Preprocessor  for  RELATE  report  generation  files,  making 

C  them  produce  output  for  the  proper  scenario. 

C  This  version  serves  the  BUILDER. 

CtAUOIT  HISTORY 

C  MSCarey  l7-mar-84  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  cursor  current  builder  cursor 

Cin  table  builder  memory  map 

Cin  args  pointer  to  file  name  to  process 

C4C0MM0N  BLOCKS 
C  none 

C4CALLER  builder  procedures 
CtMETHOO 

C  Use  dsafetch  to  get  the  file  name  text.  Do  the  file  opens, 

C  quitting  if  can't  find  input  file,  and  then  process. 

C4L0CAL  VARIABLES 

C  filnam  name  of  report  template  file,  with  group  suffix 

C  com  command/ filename  string 

C  rec  record  read  from  input  file 

C  sname  file  name  read  from  scenario  data  segment 

C  seen  scenario  field  value  for  given  file 

C  name  name  of  target  file,  as  parsed  from  input  record 

C  filin.filout  MPE  file  numbers  for  input  and  output  files 

C#* 
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C  PUTVAR  ********* . ***************************** 

SCONTROL  segment *dsa 

SUBROUTINE  putvar( table, varnam, value, len  > 

C»  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  tablet  41 ), len 
character*16  varnan 
characters  len )  value 

C*  »**  ABSTRACT  *** 

CfPURPOSE  Finds  the  given  variable  location  in  builder  memory 
C  and  writes  the  given  value  there. 

CtAUOIT  HISTORY 

C  MSCarey  19mar-84  AUTHOR 

CtFORMAL  PARAMETERS 

Cm  table  map  to  builder  memory 

Cin  varnam  name  of  variable  in  builder  application 

Cin  value  neu  value  for  varnam 

Cin  len  length  of  neu  value 

CSCOMMON  BLOCKS 

C  none 

C4CALLER  CRI  builder 

C1METH00 

C  table<41)  is  word  address  of  start  of  variable  table,  which 
C  is  a  linked  list  with  19-word  elements.  Elements  of  interest 
C  are  (1);  word  address  next  cell;  <1 0>=  byte  pointer  to  fieldname 

C  (2);  length  of  field  name;  <9)  word  address  of  data  area; 

C  (19)  length  of  data  area  in  bytes;  (3)  len  data  words 
C 

C  liberal  use  of  dsafetch.  map  vartab  onto  variable  table,  then 

C  run  down  the  linked  list  looking  for  a  match  on  the  variable 

C  provided.  When  found,  map  ival  onto  its  data  area  and  set 
C  to  new  value. 

C4LQCAL  VARIABLES 

C  vartab  a  19-word  builder  variable  linked  list  cell 

C  ifld,fldnam  variable  name  as  taken  from  builder  memory 

C  valbuf , valchr  word-aligned  buffer  for  new  value 

Ctt 


BUILDER-CALLABLE  UTILITY 
ROUTINES  IN  THE  SL 


C  SPSUSP . ****** . . . ******* 

^CONTROL  segment«dsa 

SUBROUTINE  spsusp<  cursor, table, pointr  ) 

C#  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor* S0 >, table* 1 ),pointr<4> 

c*  *♦*  ABSTRACT  *** 

CfPURPOSE  When  called  from  a  screen  application  file, 

C  suspends  operation  of  the  application  rather  than 
C  terminating  its  execution.  Thus  next  call  to  application 
C  avoids  initialization  work.  Whan  application  is  not  a 
C  son  process,  merely  causes  an  abort. 

C#AUOIT  HISTORY 

C  MSCarey  30-sep-83  AUTHOR 

C4F0RMAL  PARAMETERS 


Cin  cursor  current  screen  system  cursor 

Cin  table  screen  system  memory 

Cin  pointr  pointers  to  arguments  on  CALL  PROCEDURE 

CfCOMMON  BLOCKS 
C  none 

C3CALLER  screen  application  files 
C*METHOO 

C  Activates  father  process  and  suspends  this  one. 

C#* 


line 


i 


10.4  BUILDER  UTILITY  SCREENS 

This  section  will  present  a  few  BUILDER  subroutine  screens 
which  can  be  thought  of  as  utilities  by  the  generality  of  their 
purpose  and  their  limited  data  structure  requirements.  The 
screens  are  MPE COMMAND,  RUNEDITOR,  RUNT  DP,  and  SEARCH.  They  are 
currently  used  solely  by  the  DBU;  their  code  resides  in  the 
dbusubr. screens  file. 

The  selection  of  these  few  screens  as  utilities  is  somewhat 

arbitrary - there  are  many  more  screens  in  the  DBU  targeted 

toward  performance  of  specific  tasks,  and  extractable  for  use  by 
other  screen  systems.  Exam  pies  are  the  various  command  proces¬ 
sing  utilities  and  the  comment  screen  support  utilities  handling 
text  data.  Developers  of  large  screen  systems  should  peruse 
Section  8.4  both  for  other  screens  which  might  be  useful  and  for 
general  approaches  BUILDER  procedure  design  and  impl ementation. 

The  screens  are  displayed  in  Figures  10-1  through  10-4. 

The  MPEGOMMAND  screen  simulates  the  monitor  by  entering  a 
loop  in  which  the  user  is  prompted  with  the  standard  for 
commands.  BUILDER  is  instructed  to  treat  the  user's  input  as  an 
MPE  command  request  by  a  line  of  the  form  ":%mpecom".  MPE 
command  execution  from  within  a  system  is  a  nice  feature,  but  its 
usefulness  is  somewhat  limited  by  the  fact  that  UDC's  cannot  be 
executed  this  way.  The  screen  has  a  minimal  data  structure 
requirement:  a  single  string  buffer  called  MPECOM  (should  be  at 
least  80  characters  long,  better  132)  . 

The  RUNEDITOR  and  RUNT  DP  commands  bring  up  the  HP  standard 
editor  and  the  TDP  editor  as  son  processes,  automatically  doing  a 
SYSTEM  $  CANCEL  to  reset  the  control-Y  trap  and  prompting  for  a 
screen  rewrite  (REFRESH  must  be  given  in  the  caller)  when  the 
editor  returns  control  to  BUILDER.  The  routines  require  two 
alphanumeric  variables,  Y  and  COMMAND. 
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Figure  10-1.  MPECOMMAND  Utility  Screen 


***  SCREEN  MPECOMMAND 
***  INITIAL 

SCROLL  "Please  give  an  MPE  command  at  the  colon  (no  UDCs)  or 
RETURN  to  do  nothing.  " 

MPECOM  j=  "" 

PROMPT  MPECOM 

WHILE  MPECOM  "" 

IGNORE  ALL  ERRORS 

:%mpecom 

IF  $ ERROR 

DISPLAY  "%$errmsg" 

ENDIF 

MPECOM 

PROMPT  MPECOM 

ENDWHILE 
SYSTEM  $  CANCEL 

PROMPT  "Hit  RETURN  to  refresh  screen. ", MPECOM 
COMMAND  :*  "" 

RETURN  SCREEN 
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Figure  10-2.  RUNTDP  Utility  Screen 


***  SCREEN  KLJNTDP 
***  INITIAL 

SCROLL  "Entering  tdp  editor..." 

SCROLL  "  " 

: RUN  TDP. PUB. SYS 
SYSTEM  SCANCEL 

PROMPT  "Hit  RETURN  to  refresh  screen  ",Y 
COMMAND  :=  "" 

RETURN  SCREEN 


I 


f- 

0 

L  ' 


t 

J 

I  ' 
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Figure  10-3.  FUNEDITOR  utility  Screen 


***  SCREEN  RUNEDITOR 
***  INITIAL 

SCROLL  "Entering  HP  editor..." 

SCROLL  "  " 

:  RUN  EDITOR.  PUB. SYS 
SYSTEM  SCANCEL 

PROMPT  "Hit  RETURN  to  refresh  screen  ",Y 
COMMAND  :*  "" 

RETURN  SCREEN 
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Figure  10-4.  SEARCH  Utility  Screen 


***  SCREEN  SEARCH 
***  INITIAL 

COND  :=  "" 

NUM  :=  $RDB INFO (200) 

FLDNUM  :*  1 

WHILE  FLDNUM  “  NDM 

LIST  :*  $RDB INFO (2 01, FLDNUM) 

FLDNAM  :■  SITEM (LIST, 1 ,1) 

IGNORE  ERROR  7313 

FLDVAL  j*  %  fl  dnam 

IF  (NOT  $ ERROR)  AND  FLDVAL  ""  AND  FLDVAL  "0" 

FLDTYP  :■  $ ITEM (LIST, 3) 

FLDFMT  :«  SITEM (LIST, 11) 

FLDLEN  :*  SITEM (LIST, 5) 

IF  FLDTYP*  1 

COND  SCON CAT (COND,  *  %fldnam ",  "s,  ,  „  "»%fidval""  AND") 

FLDVAL  s*  SCON  CAT  (FLDVAL,  $SUBSTR(  ZEES,  1,  FLDLEN 

-$LENGTH(  FLDVAL)  )) 

COND  :«  $CON  CAT  (COND,  "  %fldnam",  "  AND") 

ELSEIF  FLDTYP*4  AND  $B ITS (FLDFMT, 13 ,3)*1 


COND  :*  SCON  CAT  (COND,  "  %fl dnam "  ""%fldval""  "  AND  ") 


ELSE 


COND  :«  SCON  CAT  (COND,  '  %fldnam FLDVAL,  "  AND  ") 
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Figure  10-4.  SEARCH  Utility  Screen 


ENDIF 

ENDIF 

FLDNUM  :=  FLDNUM+1 
ENDWHILE 
IF  COND*"" 

DISPLAY  "You  must  fill  in  the  field  values  you  wish  a  match 
found  f or .  " 

OK  :*  0 
RETURN  SCREEN 
ENDIF 

COND  j*  $SUBSTR(COND,l,$LENGTH(COND)-4) 

SET  OPTION  QUOTES* NO 

select  by  %nowiaflen.  WHERE  Ifinnd-imadftael 

SET  OPTION  QUOTES-YES 
IF  NOT  SFOUND 

DISPLAY  "No  match  found." 

OK  0 

ELSE 

DISPLAY 
OK  :■  1 

ENDIF 


RETURN  SCREEN 


The  SEARCH  screen  implements  the  DBU  "S "  command.  It 
constructs  a  selection  on  the  current  partition  which  requires 
that  records  returned  match  all  non-blank  values  of  screen 
variables  which  match  field  names  on  the  current  path.  This 
allows  users  to  immediately  jump  to  a  record  in  a  file  if  they 
know  enough  about  the  record  to  uniquely  identify  it. 

A  nice  feature  of  the  screen  is  its  handling  of  alpha 
variables.  Instead  of  requiring  an  exact  match  on  these,  the 
constructed  selection  allows  a  range  of  values  spanning  any 
trailing  blanks  in  the  value  in  the  BUILDER  variable.  For 
example,  if  a  DBU  user  wanted  all  schedule  records  for  ships  with 
class  names  beginning  with  "D",  he  could  place  "D"  in  the  class 
field  and  give  the  "S"  command.  The  resulting  selection's  WHERE 
clause  would  read  WHERE  SCENARIO»"%scenario"  AND  CLASS>="D"  AND 
CLASS<s”Dzzzzzzzzz ",  which  would  produced  the  desired  effect. 

The  screen's  logic  is  based  on  a  loop  which  builds  up  the 
WHERE  clause  by  concatenation  into  a  buffer.  The  loop  runs  over 
all  fields  on  the  current  path.  The  number,  names,  and  data 
types  of  the  fields  are  discovered  by  $RDBINFO  calls.  Data  type 
is  important  because  string  and  date  values  must  be  delimited  by 
quotes,  while  numbers  must  be  undelimited.  Phrases  are  added  to 
the  clause  only  for  fields  which  have  a  non-blank  value  in  the 
screen  variable  with  the  same  name  (an  error  results  on  the 
attempt  to  assign  the  field's  value  to  the  buffer  FLDVAL  if  there 
is  no  such  variable).  If  all  the  relevant  screen  variables  are 
blank  then  COND  will  be  blank  and  the  routine  will  print  an  error 
message  and  return.  Otherwise  the  selection  is  given  and  the  OK 
flag  variable  is  set  to  communicate  whether  at  least  one  matching 
record  was  found  to  the  caller.  It  is  up  to  the  caller  to 
retrieve  the  variable. 

SEARCH  requires  the  COND,  NUM,  FLDNUM,  LIST,  FLDNAM, 

FLDVAL,  FLDTYP,  FLDFMT,  FLDLEN,  MODESET,  NOW. INDEX,  and  OK 
variables  already  exist  before  it  is  called.  Note  that  the  BY 


clause  to  be  used  in  the  selection  and  any  hard-wired  WHERE 
clause  conditions  must  be  placed  in  the  NOW_  INDEX  and  MODESET 
variables  before  SEARCH  is  called. 

10.5  FORTRAN  INCLUDE  FILES 

This  Section  presents  the  code  of  all  ALIAS  FORTRAN  include 
files.  These  files,  stored  in  the  .incl  group,  contain  ALIAS 
common  block  declarations.  They  also  include  some  "parameter” 
blocks,  i.e.  sets  of  FORTRAN  parameter  statements  which  specify 
array  dimensions  and  other  static  system  information,  and  some 
DATA  statements,  particularly  field  lists  for  relations. 

The  source  code  for  these  global  data  structures  is  main¬ 
tained  in  files  separate  from  the  source  of  routines  to  promote 
standardization  and  maintainability.  See  the  discussions  of  the 
include  methodology  in  Sections  2  and  6  for  further  information 
about  this. 

The  include  files  are  presented  on  the  following  pages  in 
alphabetical  order,  often  more  that  one  to  a  page  in  order  to 
conserve  space.  Note  that  their  source  code  was  current  as  of 
September,  1984. 

10.6  MISCELLANEOUS  SYSTEM  RESOURCES  AND  THEIR  CURRENT 

UTILIZATION 

Resources  which  are  difficult  to  categorize,  but  which  are 
nevertheless  very  important  to  software  developers,  include 
locations  in  the  /lprnts/  FORTRAN  common  block  and  usage  of  extra 
data  segments. 

Lprnts  array  locations  are  typically  reserved  for  one  rou¬ 
tine  or  a  few  related  routines.  This  way  the  diagnostic  output 
that  results  from  turning  on  a  given  lprnt  is  precisely  targeted. 
Table  10-8  presents  a  list  of  the  current  usage  of  lprnts 
locations. 


ALIAS  FORTRAN  INCLUDE  FILES 


FILE  AOOSUB 


1.00  C 
2.00  C 

2.11  C 

2.12  C 
3.00 
4.00 
5.00 
6.00 
7.00 
8.00 
9.00 

10.00 
11.00 
12.00 
13.00  C 
14.00 
15.00 
16.00 
17.00 
18.00 
19.00 
20.00 
21.00  C 
22.00 
23.00 
24.00 
25.00  C 


INCLUDE  FILE  AODSUB 

- common  blocks  for  the  AODSUB  environment  utility  program 

- which  supports  maintenance  of  entries.doc  and  subkeys.doc 

COMMON  /entrys/  module , source , objec t , entryn , subprg , 

1  caltyp, prpose, author, cat ,mkey 

CHARACTER  module* 12 , source* 18 , object  *18 .entryn* 12  , 

1  subprg* 12 , cal typ* 10 , prpose* 48 , aut  hor* 12 ,cat*12,mkey*12 
PARAMETER  elen-166 

PARAMETER  e f  Us t » ’ : MODULE , SQURCEFILE , QBJECTF I LE , ENTRYNAME , SUBPROGR 
1AM , CALLTYPE , PURPOSE , AUTHOR , CATEGORY , MAINKEY  = ’ 

PARAMETER  ef i le- 1 = ENTRIES .00C : ’ 

INTEGER  ientry< 1  ) 

EQUIVALENCE  < module , ientry > 

COMMON  /subkey/  entrys , keywrd 
CHARACTER*12  entrys , keywrd 
PARAMETER  slen-24 
PARAMETER  s f 1 i s t - ’  =  ENTRY .KEYWORD : ’ 

PARAMETER  sfile  -  ’  =  SUBKEYS.DOC : ’ 

INTEGER  isubk(l) 

EQUIVALENCE  ( entrys , lsubk  ) 

COMMON  /escrs/  ecr s , scrs , daut h 
INTEGER  ecrs.scrs 
CHARACTER* 12  dauth 
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ALIAS  FORTRAN  INCLUDE  FILES 


FILE  AS6N 


1.00  C 
2.00  C 

3.00  C 
4.00 
5.00 
6.00 
7.00 
8.00  C 
9.00 
10.00 
11.00 
12.00 
13.00 
14.00 
15.00  C 
16.00 
17.00 
18.00 
19.00 
20.00 
21.00 
22.00 
23.00 
23.10 
24.00 
25.00  C 
26.00 
27.00 
28.00 
29.00 
30.00  C 
31.00 
32.00 
33.00 
34 . 00 
35.00 
36.00 
37.00  C 


include  file  /ASGN/  —  MANUAL  ASSISNER  DATA  BLOCKS 

SEE  FILE  AS6NDESC. INCL  FOR  DOCUMENTATION 
»**  PARAMETER  lnasgn»30+naxper+2*naxyds ,  lbasgn»2+6+2*naxper 

PARAMETER  nperh  *  20,  naxyds*  99,  naxper*  208,  lcasgn*  1240, 

1  lnasgn*  436,  lbaagn*426,  cundef*-9999, 

2  zdel  *  X5C,  ncyds  *  12,  nccls  *  12,  ncclsl*  11 

PARAMETER  qpfx*4 , qc la*5 , qyrd*6 ,q job*7 

COMMON  /caagn/  scnane.perlbl , duratn, cpagep , apront ( 2  )  , apront  < 16 ) , 
1  ydnane< naxyda  ) 

CHARACTER  acnane*l6,  perlbl*8 , duratn*8 , cpagep*2 , cpageh* 1 , 

1  ydnane*ncyds , spront*l ,apront*l 

INTEGER  caagn( 1 ) 

EQUIVALENCE  ( cpagep , cpageh  ) ,  ( scnane, caagn  ) 

COMMON  /naagn/  idurat ,ordnod, f idate, npagev , npageh , npront , numper , 

1  nunyds ,aantot ,grdtot , Inore  ,topyd  ,lowyd  , topidx , louidx , 

2  freptr, recalc ,ydcalc , npageh, prompt , f iyear, 

3  nvruse , asnsav ,aancaa , kpad< 6 > , 

4  aunper<  maxper  ) , f irstp( naxyda  )  ,numaan<  naxyda  ) , curs jd 
INTEGER  idurat , ordnod , f idate, npagev , npageh, npr on t , numper , nunyds , 

1  aantot .sunper ,grdtot , topyd  ,lowyd  , top ldx , lowidx , freptr , 

2  f irstp , nunasn, ydcalc , npageh , f iyear , nvruse ,aancas,kpad, 

3  cursjd 

LOGICAL  lnore  , recalc .pronpt , asnsav 

COMMON  /uasgn/  uasnr ,uasnh,uasnc , inasn,outaan, 

1  prnter , autor f ,nal ine 

INTEGER  uasnr , uaanh , uasnc , i naan , out a sn , nal ine 
LOGICAL  prnter , autor f 

COMMON  /baagn/  nextp , zshpcl , shpord, sunasn , valasn( naxper  ) , 

1  codasn<  naxper  ) 

INTEGER  nextp , zahpc 1 < 6  >,vaiasn,codasn, sunasn 
INTEGER*4  shpord 
CHARACTER  shpcla*nccls 
EQUIVALENCE  ( ahpcls , zahpc 1 > 
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ALIAS  FORTRAN  INCLUDE  FILES 


FILE  AS6NDESC 


1.00  C 

2.00  C  DESCRIPTION  OF  PARAMETERS  IN  /asgn/ 

3.00  C  mperh  -  maximum  number  of  display  periods  (20) 

4.00  C  maxyds-  maximum  number  of  yards  ( 9S  ) 

5.00  C  maxper-  maximum  number  periods 

6.00  C  lcasgn-  length  of  /casgn/  <char> 

7.00  C  lnasgn-  length  of  /nasgn/  ( *2  words) 

8.00  C  lbasgn-  length  of  /basgn/  <  *2  > 

9.00  C  zdel  -  nonprinting  delimiter  character 

10.00  C  mccls  -  shpcls  character  length 

11.00  C  mcclsl-  11,  the  length  of  the  allowable  class  input 

12.00  C  mcyds  -  ydname  character  length 

13.00  C 

14.00  C  IN  /casgn/  *****  character  PART  OF  ASSIGNMENTS  WORKING  COMMON 
15.00  C  scname-  scenario  name  (*16> 

IB. 00  C  perlbl-  period  label  <  *8  )  lie.  "PERIOD;"] 

17.00  C  duratn-  period  duration  < *8  )  lie.  'YEARS"] 

18.00  C  cpageh-  horizontal  page  character  (ie.  “A") 

19.00  C  spromt-  short  prompt  characterss  ( *2  ) 

20.00  C  apromt-  prompt  sequence  (*16  max) 

21.00  C  Ydname-  name  of  each  yard  <*12> 

22.00  C 

23.00  C  IN  /nasgn/  *****  NUMERIC  PART  OF  ASSIGNMENTS  WORKING  COMMON 

24.00  C  idurat-  period  duration  indx  <[1-6]=  [FYr  CYr  Qtr  Month  Week  Oay ]  > 

25.00  C  ordmod-  the  first  5  bits  < from  the  right)  are  currently  in  use. 

26.00  C  1:  ship  class  ordering;  off*alpha,  on*input 

27.00  C  2-  ship  yard  ordering;  off*alpha,  on»input 

28.00  C  3=  use  historical  section  of  database 

29.00  C  4 •  use  current  section  of  database 

30.00  C  5=  use  projected  section  of  database 

31.00  C  fidate-  first  qtr/wk/day  in  date  row 

32.00  C  npagev-  vertical  page  number 

33.00  C  fiyeai —  starting  year 

34.00  C  asnsav-  .T.  if  last  command  modified  the  direct  access  file 

35.00  C  npageh-  horizontal  page  number 

36.00  C  npromt-  number  of  characters  in  apromt 

37.00  C  numpei —  number  of  periods  defined 

38.00  C  numyds-  number  of  yards  defined 

39.00  C  asntot-  total  assignments  count 

40.00  C  grdtot-  total  ships  count 

40.10  C  cursjd-  cursor  open  on  the  job  description  file;  for  ckpf 

41.00  C  lmore  -  .T.  if  more  in  last  yard 

42.00  C  topyd  -  loc  of  top  yard  displayed 


ALIAS  FORTRAN  INCLUDE  FILES 


43.00 

C 

lowyd  - 

44.00 

C 

topidx- 

45.00 

C 

lowidx- 

46.00 

C 

recalc- 

47.00 

C 

ydcalc- 

48.00 

C 

f reptr- 

49.00 

C 

mpageh- 

50.00 

C 

prompt- 

51.00 

C 

asncas- 

52.00 

C 

53.00 

C 

54.00 

C 

55.00 

C 

56.00 

C 

Sumpei — 

57.00 

C 

F irstp- 

58.00 

C 

Numasn- 

59.00 

C 

nvruse- 

60.00 

C 

61.00 

C 

IN 

/basgn/ 

62.00 

C 

nextp  - 

63.00 

c 

shpcls- 

64.00 

c 

sumasn- 

65.00 

c 

Ualasn- 

66.00 

c 

Codasn- 

67.00 

c 

68.00 

c 

IN 

/uasgn/ 

69.00 

c 

uasnr  - 

70.00 

c 

uasnh  - 

71.00 

c 

uasnc  - 

72.00 

c 

inasn  - 

73.00 

c 

outasn- 

74.00 

c 

75.00 

c 

76.00 

c 

prntef — 

77.00 

c 

autorf- 

78.00 

c 

maline- 

79.00 

c 

loc  of  lowest  yard  displayed 
top  index  of  top  yard 
low  index  of  low  yard 
.T.  if  page  recalc  needed 
yard  index  for  recalc, 
free  chain  pointer 
max  horizontal  page  number 
T= interact ive ,  F:command 

bits  describing  uppercases  to  be  done  after  input 
bit  1;  uppercase  the  first  char  of  input  yard  names 
2'  uppercase  entire  input  yard  names 
3=  uppercase  the  first  char  of  input  classes 
4=  uppercase  entire  input  classes 
total  ships  by  period 
assignment  chain  heads 

total  number  of  assignment  rows,  by  yard 
the  lowest  unused  record 

*****  BUFFER  PART  OF  ASSIGNMENTS  WORKING  COMMON 
next  buffer  in  chain 
ship  class  <  *12  ) 

total  assignments  in  this  buffer 
the  value  of  each  assignment 
code  for  each  assignment 

*****  UNSTORED  PART  OF  ASSIGNMENTS  WORKING  COMMON 

unit  number  for  direct  access  file  records 

unit  number  for  help  file 

unit  for  /a sgn/  save 

input  logical  unit  number 

output  unit  number 

the  first  input  character  is  treated  as  a  default 
and  prints  out  as  a  blank  (right  now,  New) 

.T.  if  asnclr  should  act  like  a  line  printer 

.T.  if  auto-refresh  is  on  (see  asnref  ) 

maximum  number  of  buffer  lines  which  fit  on  screen 


10-246 


ALIAS  FORTRAN  INCLUDE  FILES 


FILE  ASHLDR 


1.00  C 
2.00 
3.00 
4.00  C 
S.00  C 
6.00  c 
7.00  C 


include  file  ashldr 

common  /ashldr/hldval( maxper  ) , hldcod( maxper ) 
integer  hldval , hldcod 

holding  buffer  for  per-period  assignments  and  series  codes 
used  by  outbound  to  tranfer  to  extended  memory 
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FILE  ASJD 


1.00  C!  include  file  asjd 

2.00  common  /as j d/ndesc , jc las , jyard , j j typ , j atyp , jcus t , jgrp , 

3.00  1  jcomn,  jmethd,  jda , jaa, jas, jsk , jkl ,j Id, jdadd,  jdauid,  jtunt 

4.00  dimension  jclas( asmpf t  ) , 

5.00  1  jyard<asmpft  ), j jtyp(asmpft  ), jstyp(asmpft  ) , 

6.00  2  jcust< asmpf t >, jgrp< asmpft  ), jcomn< asmpf t  ) , 

7.00  3  jmethd< asmp ft >, jda( asmpf t  ), jaa( asmpf t  ), jas( asmpf t > , 

8.00  4  j sk( asmp ft  ), j  k 1 < asmpf t  ), j ld< asmpf t  ) , 

9.00  5  jdadd< asmpf t  ), jdawd( asmpf t  )  ,  j-tunt(  asmpf  t  > 

10.00  character  jclas*10, jyard*8 . j  j typ *6 , j  styp*6 , jcust *8, jgrp *10 

11.00  character*6  jmethd, jtunt 

12.00  integer  ndesc , jcomn, jda, jaa, jas , jsk , jkl , j Id, jdadd 

13.00  integer*4  jdaud 

14.00  integer  jdal in< asmpf t ,5 > 

15.00  equivalence  < jdalin, jaa< 1 )  > 

16.00  C 

17.00  C  job  descriptions  buffer;  holds  one  per  class  in  a 

18.00  C  complexity  group 

19.00  C 

20.00  C  jdalin  alternative  address  for  building  period  intervals 

21.00  C  ndesc  number  of  description  records  currently  held 

22.00  C  jclas  class  of  job  desc 

23.00  C  jyard  yard  it  applies  to,  or  ANY 

24.00  C  jjtyp  job  type  it  applies  to 

25.00  C  jstyp  series  type  it  applies  to 

26.00  C  jcust  customer  for  this  job 

27.00  C  jgrp  complexity-group  of  this  job 

28.00  C  jcomn  commissioning  number 

29.00  C  jmethd  construction  method 

30.00  C  jda  design  to  auard  time 

31.00  C  jaa  appropr iat ion  to  award  time 

32.00  C  jas  award  to  start 

33.00  C  jsk  start  to  keel  time 

34.00  C  jkl  keel  to  launch  time 

35.00  C  jld  launch  to  delivery  time 

36.00  C  jdadd  days  added  to  a  ship's  life  by  this  job 

37.00  C  jdawd  default  award  date  in  a  year;  for  dpsmode-awards 

38.00  C  and  time  units  ■  years 

39.00  C  jtunt  time  units  schedule  intervals  given  in 
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FILE  ASNOCR 


8.00 

c: 

include  file 

asnocr 

9.00 

common  / asnocr/ jomain, jodpr j ,joprj2,joflag,jdesc, 

10.00 

1 

jodol , jolbr , joemp , jomr , jomd, jocom, 

11.00 

4 

jodol f , jolbr f , joemp  f , jomrf , jomdf .jocomf 

12.00 

integer  jomain, jodpr j , joprj2, joflao, jdesc, 

13.00 

1  jodol , jolbr , joemp , jomr , jomd, jocom 

14.00 

logical  jodol f , jolbr f , joemp f , jomrf , jomdf , jocom f 

IS. 00 

C 

16.00 

C 

CURSOR  FOR 

16.10 

C 

jomain 

ncjodat  .proj  j  mam  file  when  copy  algorithm  used 

17.00 

C 

jodpr j 

projected  jobs  ( ncjodat .projj 

18.00 

C 

jopr j2 

same 

19.00 

C 

jof lag 

same,  select  by  scenario , yard, class , jobtyp 

20.00 

c 

where  flag*"YES" 

21.00 

c 

jdesc 

job  descriptions  ( nc jdat . desc j 

22.00 

c 

jodol 

ncjodol .projj 

23.00 

c 

jolbr 

ncjolbr.  “ 

24.00 

c 

joemp 

nc joemp.  " 

25.00 

c 

jomr 

ncjomr. 

26.00 

c 

jomd 

ncjomd. 

27.00 

c 

jocom 

ncjocom.  “ 

28.00 

c 

OPEN  STATUS  FLA6S  FOR  EIGHT  OF  ABOVE  CURSORS 

29.00 

c 

jodol f 

30.00 

c 

jolbr f 

31.00 

c 

joemp f 

32.00 

c 

jomrf 

33 . 00 

c 

jomdf 

34.00 

c 

jocomf 

35.00 

c 
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FILE  ASNULD 


1.00  C 
2.00  C 
3.00 
4.00 
5.00 
6.00 
7.00 
8.00 
9.00 
10.00 
11.00 
12.00  C 
13.00  C 
14.00  C 
15.00  C 
16.00  C 
17.00  C 
18.00  C 
19.00  C 
20.00  C 
21.00  C 
22.00  C 
23.00  C 
24.00  C 


Include  file  /asnvld/ 

PARAMETER  mvcls*200,  nvyds*  99,  mcvcls*10,  mcvyds*  8, 

1  mcdchr*10,  mjtchr*10,  mcjt  *  S,  need  *  6 

COMMON  /asnvld/  vl dc 1 s( nvcls  ) , nvc 1 s , vldyds( mvyds  ) , nvyds , 

1  j t idef , jtchar , 1 j  tehr , j tname( mj tchr >,jtvld(njtchr>, 

2  jttype(njtchr) , edidef ,c debar , ledehr , cdname< nedehr  ) 

CHARACTER  cdchar*ncdcHr , j  tchar*m j tchr , cdname*mccd , j  tnane*mc j  t 
CHARACTER  jttype,vldcls*mcvcls , vldyds*ncvyds 

INTEGER  edidef , jt idef , nvcls , nvyds , ledehr , 1 j tchr 
LOGICAL  jtvld 

holds  lists  of  valid  cl-sses/yards  fron  liston  ( UALCLS.VALYDS  ) 
vldcls-  list  of  valid  shipclasses,  of  length  nvcls 
vldyds-  list  of  valid  yards,  of  length  nvyds 
and  holds  legal  code  characters  and  their  translations  (.LEGALS)- 
cdchai —  character  CoOes,  like  Lead,  etc... of  length  *lcdchr 
ednane-  nanes  corresponding  to  character  codes;  length  lcachr 
edidef-  default  series  code  location 

jtchar-  character  jobtypes,  like  New,  Repair,  etc.;  *lcdchr 
jtname-  nanes  corresponding  to  the  job  type  codes;  length  ledehr 
jtidef-  default  jobtype  code  location 

jtvld-  True  if  nenu  system  (liston)  gives  this  type  as  valid 
jttype-  N  for  job  types  with  data  in  NC  relations,  0  for  REpairs 
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FILE  ASOPRM 


3S.00  C!  include  file  asoprm 

37.00  parameter  tupunt*21  ,  aaomxc*50  ,  asomxg*20 

38.00  parameter  asmshp-200  ,  asmpft*10  ,  asmndt-6 

38.10  parameter  exunit*24,exout*25 

39.00  common  /asoprm/aaucur , asuhi s , asamod , asabas , asdbas , 

40.00  1  aatunt ,asf std, aslatd, memid, per len 

41.00  logical  aaucur ,aauhia 

42.00  integer  perlen(300) 

43.00  integer  memid, aatunt ', aaamod , aaabas  , aadbaa 

44.00  integer*4  aaf3td,aal3td 

45.00  C 

46.00  C  general  aa,_igner  outbound  variablea  and  parametera 

47.00  C  PARAMETERS 

48.00  C  aaomxc  maximum  new-construct ion  claaaea  in  a  aingle  yard 

49.00  C  aaomxg  maximum  claaaea  in  a  aingle  complexity  group  in  a  yard 

50.00  C  aamahp  maximum  ahipa  record  buffer  can  hold  at  once 

51.00  C  aampft  max  planning  factor  tuplea  for  one  yard-claaa-j typ  combo 

52.00  C  tupunt  unit  number  for  tupfil 

52.10  C  exunit  unit  number  for  RELATE  execution  file  newhul 

53.00  C  aamndt  number  of  schedule  dates  ( award, start , etc  )  for  nc  jobs 
54.00  C  VARIABLES 

55.00  C  asuhia  true  if  historical  data  brought  in  on  inbound 

56.00  C  aaucur  true  if  current  data  brought  in  on  inbound 

57.00  C  perien  length  of  each  display  period  in  days 

58.00  C  asamod  schedule  adjust  basis  mode;  l*none ,2*class , 3*cmpl x  grp 

59.00  C  aaabas  adjust  basis  date  code:l~auard . 5-delivery 

60.00  C  asdbas  display  basis  date  code:l*award . 5*delivery 

61.00  C  astunt  time  unit  code:  i*f year , 2-cyear . . . . S*day s 

62.00  C  asfstd  first  day  of  first  bufasn  period  (clarified  ddate > 

63.00  C  memid  id  code  for  extended  memory  segment 
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FILE  ASRBUF 


64 .0®  Ci  include  file  asrbuf 

65.00  C  NOTE:  asoprm  must  be  included  above 

66.00  common  /asrbuf /rnptr , rip tr,rc las, rcode,rdispd, rad jd,r first .rlast  , 

67.00  1  rperd 

68.00  common  /asrc is/rc las f ,nscl 

69.00  integer  rnptr<  asmshp  )  ,rlptr( asmshp  )  ,rclas( asmshp  )  ,rcode( asmshp  ) 

70.00  integer  rperd( asmshp  ) 

71.00  integer*4  rdispd< asmshp >, rad jd( asmshp  ) 

72.00  integer*4  rf irst < asmshp >,rlast( asmshp  ) 

73.00  integer  rclasf < aaomxg  ) , nsc 1 ( aaomxg  ) 

74.00  C 

75.00  C  assigner  outbound  1  ship — 1  record  buffer 

76.00  C  holds  variables  used  in  generating  key  sched  dates 

77.00  C  for  each  ship  in  a  complexity-group  in  a  yard 

78.00  C  rlptr  pointer  to  Last  ship  in  same  class 

79.00  C  rnptr  pointer  to  next  ship  in  same  class 

80.00  C  rclas  id  number  of  class  of  ship  i;  references  rclasn 

81.00  C  rcode  code  number  of  class  of  ship  i;  e.g.  ’LEAD' 

82.00  C  rdispd  relate*4  format  date  that  display  of  ship  was  based  on 

83.00  C  radjd  date  that  schedule  adjustment  of  ship  is  to  be  based  on 

84.00  C  rfirst  first  date  that  radjd  may  be  set  to 

85.00  C  rlast  last  date  that  radjd  may  be  set  to 

86.00  C  rperd  period  ship’s  dispiaydate  falls  in 

87.00  C  -rclasn-  for  character  name  of  each  class  see  hldcls 

88.00  C  nscl  number  of  ships  in  each  class 

89.00  C  rclasf  pointer  to  first  record  holding  ship  of  class  j 

90.00  C 
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FILE  ASTFR 

1.00  C!  include  file  astfr 
2.00  C 

3.00  parameter  asdtst  »  31 

4 . 00  common/ast  fr/f seen, fclas , f hull , fyard , f com , fjtyp , f  j  styp , feus  t , 

5.00  1  femthd, fappr , faward, f start , f keel , f laun , f del iv , f comm , 

5.10  1  f dad, 

6.00  2  f f lag, forder , fhmap , fddat , fedat , feby 

7 . 00  common/as  tup/ 1 seen ,tclas,thull, tyard ,tcom,tjtyp,tjstyp,tcust, 

8.00  1  temthd, tappr , taward , t start , t keel , t laun , t del iv , t comm , 

8.10  1  tdad, 

9.00  2  t f lag , torder , thmap , t ddat , t edat , teby 

10.00  common/asvar/eoreln 

11.00  C 

12.00  logical  eoreln 

13.00  character  f seen* 12 , tscen*12,fclas*10,tclas*10, fyard *8 , tyard* 8 

14.00  character  f j typ*6 , t j typ*6 , fcmthd*6 , tcmthd*6 , f eby*8 , teby*8 

15.00  character  feus t *8 ,tcust*8,fjstyp*6,tjstyp*6,fflag*4,t  f lag*4 

16.00  integer  fhull , thull , fcom, tcom, f dad, tdad 

17.00  integer*4  fappr , tappr , faward, taward, f start , tstart 

18.00  integer *4  fkeel,tkeel,f laun , t laun ,fdeliv,tdeliv, f comm , t comm 

19.00  integer *4  f order , torder , fddat , t ddat , fhmap , thmap , fedat , tedat 

20.00  C  equivalences 

21.00  integer  t fral i< 60  ) , tupal i ( 60 > 

22.00  equivalence  < f seen , t fral i  ),( t seen , tupal l  ) 

23.00  character*46  fld05<4) 


24.00 

C 

25.00 

c 

records  for  reading/wr it ing  of  tupfil  (tfr>  and  nejodat 

26.00 

c 

the 

records  are  identical;  each  pair  of  variables  will 

27.00 

c 

be  i 

described  only  once 

28.00 

c 

29.00 

c 

asdt  st 

parameter  giving  location  of  award'  in  aligned  arrays 

30.00 

c 

f  seen 

scenario  name 

31.00 

c 

fclas 

class  name 

32.00 

c 

fhull 

hull  number 

33.00 

c 

fyard 

yard  name 

34.00 

c 

fcom 

commissioning  number 

35.00 

c 

fjtyp 

job  type 

36.00 

c 

f jstyp 

series  type  < lead, fol low. .  ) 

37.00 

c 

f  oust 

customer 

38.00 

c 

f emt  hd 

construction  method 

39.00 

c 

fappr 

appropr iat ion  date 

40 . 00 

c 

faward 

award  date 

41.00 

c 

f start 

start  date 
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42.00 

C 

f  keel 

keel  date 

43.00 

C 

f  laun 

launch  date 

44 . 00 

C 

f del iv 

delivery  date 

45.00 

C 

f  dad 

days  added  to  the  life  of  the  ship  by  this  commissioning 

46.00 

C 

f  f  lag 

flag  setting  (YES,  NO) 

47.00 

C 

forder 

asnorder  value 

48.00 

C 

f  hmap 

the  bit  map  indicating  which  relations  hold  hardwire 

49.00 

C 

data  for  this  ship 

50.00 

C 

f  ddat 

data  date 

50.10 

C 

f  edat 

entry  date 

50.20 

C 

f  comm 

commissioning  date 

50 . 30 

C 

feby 

name  of  user  running  assignor;  entry_by 

51.00 

C 

52.00 

C 

eoreln 

End  Of  RELatiaN.  The  end-of-file  indicator  for 

53.00 

C 

ncjodat .proj j  must  be  global. 

54.00 

c 
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FILE  BGPMTR 

1.00  C 

2.00  C  include  file  bgpmti - BATTLE  GROUP  REPORT  GENERATOR  PARAMETERS 


3.00 

PARAMETER 

MXTYPE  -  100 

4.00 

PARAMETER 

MXCH0ICE  -  20 

5.00 

PARAMETER 

MXFUNC  -  50 

6.00 

PARAMETER 

MXMKUP  -  400 

7.00 

20.00  C 

PARAMETER 

MXGROUP  -  20 

FILE  B6TITL 


1.00  C 

.00  C  inciude  file  bgtitl - BATTLE  GROUP  REPORT  GENERATOR  TITLE 

.00  CHARACTER  SECTITL*20 

4.00  common/bgtitl/sectitl 

5.00  C  aectitl  current  battle  group  report  section  title 

6.00  C 
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FILE  CHLST 


1.00  C 

2.00  C  include  file  chlst - MNUG  block;  list  processed  choice  menus 

3.00  CHARACTER  CMNLST *LNAME 

4.00  INTEGERS  PMPTR , CMPTR 

5.00  INTEGER  NCMENU 

6 .00  COMMON  /CHLST/  NCMENU,  CMNLST<  MXMENU  ) ,  CMPTR( MXMENU  ) 

6.10  +  ,PMPTR< MXMENU) 

7.00  C 


FILE  CMENU 


1.00  C 

.00  C  include  file  CMENU - MNUR  block;  data  for  current  choice  menu 

.50  CHARACTER  MNTXT»QIMNAME ,MTTXT*LLINE 

3.00  INTEGER*4  IOOPT,  OPTPTR,  OPTTXT,  MHPTR ,  OPHPTR 

4.00  INTEGER  OPSECI,  IOMENU,  NOPTIO,  OPTTYP,  MHLEN ,  OPHLEN 

5.00  COMMON/CMENU/  IOMENU,  MHLEN,  NOPTIO,  0PTTYP<15),  OPHLEN(IS), 

6.00  1  QPTPTR< 15  ) ,  IOOPT ( 15  > ,  MHPTR,  0PHPTRU5),  0PTTXT(15) 

6.10  1  ,  MTTXT ,  MNTXT ,  OPSECK  15 ) 

7.00  C 

Id  number  current  menu,  number  lines  menu  level  help  text 
number  options  on  menu,  type  each  option,  number  lines 
help  each  option,  id  for  each  option  (a  menu  id), 
pointers  to  option  rnproc  call  goto  indexes  for  process 
options  pointer  to  menu  help  text, 

pointers  to  option  help  text,  pointer  to  option  text 
for  menu,  pointer  to  menu  title  text,  pointer  to  menu  name, 
security  index  each  option  (indexes  element  of  modnum 
in  /uzrprv/. 
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FILE  COLUSE 


53.00  C 

54.00  C  include  file  coluse 

55.00  common  /coluse/  c iused( nltrcl , mx 1 typ  ) 

56.00  logical  clused 

57.00  C 

58.00  C  This  common  block  contains  information  about  free  space 

59.00  C  in  list  type  relations. 

60.00  C  clused  Dimensioned  <#  of  columns  in  each  list  type  relation)  by 
61.00  c  (maximum  number  of  list  type  relations),  this  array  is 

62.00  c  a  set  of  flags  indicating  which  columns  are  in  use 

63 . 00  C  ( . true .  ) . 

64.00  C 
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1.00  C 
2.00  C 
2.10 
3.00 
4.00 
4.10 
S.00 
5.01 


include  file  comcfl 

parameter  mxcflv  -  10 

INTEGER  CFRECS , INCFL ,  OUTCFL , CFLEUL , CFTREC 
LOGICAL  INUSE,  BUILDN  .CFECHO 
CHARACTER*8  CFMUl.CFNAMl 

COMMON/COMFLE/  INCFL , OUTCFL , INUSE , BUILDN , CFECHO , CFLEUL 
1  , CFRECS( mxc f 1 v  ) , CFTREC( mxcflv), CFMU1 , CFNAM1 

mxcflv  maximum  nesting  level  of  executing  command  files 
incfl  file  f  from  which  command  file  should  be  read 
outcfl  file  #  to  which  command  file  should  be  written 
inuse  true  only  if  input  is  being  read  from  incfl 
buildn  true  only  if  command  file  is  begin  built 
cfecho  true  if  readln  should  echo  input  to  screen 
cflevl  current  command  file  execution  nesting  level 
cfrecs  count  of  records  read  from/written  to  comfile 
cftrec  number  of  records  in  file  execing  at  level  cflevl 
cfmul  menu  id  for  command  file  exec-ing  at  cflevl-1 
cfnaml  name  of  command  file  exec-ing  at  cflevl-1 


5.10 

C 

mxcflv 

6.00 

C 

incfl 

7.00 

c 

outcfl 

8.00 

c 

inuse 

9.00 

c 

buildn 

10.00 

c 

cfecho 

11.00 

C 

cflevl 

12.00 

c 

cfrecs 

13.00 

c 

cftrec 

14.00 

c 

cfmul 

15.00 

c 

cfnaml 
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FILE  CONST 


1.00 

2.00 

C 

C 

The 

following  are  constant  values...  /CONST/ 

3.00 

4.00 

PARAMETER 

1  cr  -  X15C 

,  If 

a 

%12C 

5.00 

n 

im 

ff  -  X14C 

,  large 

m 

X077777 

6.00 

3 

1 large  -  X17777777777 J 

.  Pi 

m 

3.141592654 

7.00 

4 

root2  -  1.414213562 

.  eps 

m 

1.0E-7S 

8.00 

5 

x large  •  1.0E+75 

,  bell 

m 

X7C 

9.00 

6 

nullc  -  X0C 

,  be 

m 

%10C 

10  .00 
11.00 

C 

7 

largec  -  Z177C 

FILE  CURSRS 


1.00  C 

2.00  C  include  file  cursrs 

3.00  PARAMETER  mcchn»22,  mcre-20,  mcpth*12 

4.00  COMMON  /curare/  crechnf ncchn  ), cre( 50 , mere ), crept h< mere ) , 

5.00  1  crstyp< ncre )  , ere i dx ( mere >, crexl ( mere  ) 

6.00  INTEGER  crechn, ere ,cretyp .creidx , crexl 

7.00  CHARACTER  crepth*ncpth 

8.00  C  crechn-cureor  chain  ere  -cursor  pool 

9.00  C  crepth-cureor  path  name  crexl  "index  calculate  length 

10.00  C  cretyp-C 0. . 3  ] :  0-not-in-uee,  1-relation,  2-synonyro,  3-select 

11.00  C  creidx-cureor  index  pointer:  0-no  new  index,  0  otherwise 

12.00  C 


ALIAS  FORTRAN  INCLUDE  FILES 


FILE  OEBUFF 


1.00  C 

2.00  C  include  file  debuff 

3.00  C  parameter  Data  Entry  MaXimum  Buffer  Length,  Number  Buffers, 
4.00  C  FieLda  per  relation 

5.00  parameter  demxb 1*160 , demxnb*15 , demxf 1*30 

S.00  character*255  bf 1 iat < 2 , demxnb  ) 

7.00  common  /debuff/  bfpool< demxbl , demxnb  )  ,bufrel< demxnb > , 

7.10  1  bufptM  demxnb ) , 

8.00  1  grpid< demxnb  )  .gpatat ( demxnb  )  ,gpiata( demxnb  ) , 

9.00  2  fldata< demxf 1 , demxnb >, decurs( demxnb  ) , 

10.00  3  bfnfldi demxnb > ,bfal lo< demxnb  )  ,bfl iat 

11.00  integer  bfpool ,grpid, f ldata.bfnf ld.decurs 

12.00  character*2S  bufrel ,bufpth 

13.00  logical  gpatat ,gpista,bfallo 

14.00  C  equivalencing 

15.00  character*2  cbpool < 160 , demxnb  ) 

16.00  real  rbpool < 80 , demxnb > 

17.00  equivalence  < cbpool , b fpool  ),( rbpool , bfpool  / 

18.00  C  data  tranafer  buffera  for  the  data  entry  module 

19.00  C  bfpool  the  buffera 

20.00  C  bufrel  name  of  relation  buffer  hoida  data  for 

21.00  C  grpid  id  number  of  entry  group  or  set  buffer  belongs  to 

22.00  C  bfstat  buffer  entry  status:  whether  its  data  is  to  be  sent 

23.00  C  bflist  field  list  for  each  buffer 

THIS  WAS  FOR  OBSOLETE  DATA  UPDATING  SYSTEM 
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FILE  ENUIRN 


1.00  C 

2.00  C  include  file  envirn 

3.00  CHARACTER*8  GROUPN, RELGPN, starty,groupc*2 

4.00  INTEGER  LENGPN,  ICCTCL<2>,  LENRLN  , lengpc 

5.00  CHARACTER**  CCTCLR 

5.10  LOGICAL  develp 

S.00  COMMON/ENVIRN/  GROUPN,  RELGPN , LENRLN , lengpn , cctclr , s tarty , 

7.00  1  groupc , lengpc .develp 

8.00  EQUIVALENCE  ( ICCTCL< 1  ), CCTCLR > 

8.10  C  - system  core  status  info,  mainly  for  dev/prod  versions  cap 

9.00  C  groupn  group  name  in  which  files  are  located 

10.00  C  lengrp  length  of  group  name  in  characters 

11.00  C  regpnp  group  in  which  relate  files  are  located 

12.00  C  lenrln  length  of  relgpn  in  characters 

13.00  C  cctclr  clear  screen  control  characters  for  terminal 

14.00  C  icctcl  integer  version  of  cctclr 

15,00  C  starty  name  of  terminal  type  found  or  given  at  startup 

16,00  C  groupc  character  suffix  for  data  base  relation  group  names 

17.00  c  blank  if  production  version;  *T’  if  development 

18.00  C  lengpn  length  of  groupc  contents 

18.10  C  develp  true  if  development  version  is  being  run 

19.00  C 
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FILE  FIELDS 


1.00  C 

2.00  C  include  file  fields 

3.00  C  holds  data  statements  for  all  includes  of  the  ’rcrd##’  type 

4.00  data  f ld01  /“ = MENU ID, RELATION, COLUMN: "/ 

S.00  C 
6.00  C 


FILE  FLCLASS 


1.00  C 

2.00  C  include  file  flclaas — list  of  ship  class  FLRP  is  dealing  with 

3.00  INTEGER  NCLASS 

4.00  CHARACTER  CLIST *CNLEN<  MAXCLAS  ) 

5.00  COMMON /FLCLASS/  NCLASS,  CLIST 

6.00  C 


ALIAS  FORTRAN  INCLUDE  FILES 


FILE  FLCONCH - parameters  defining  acceptable  FLRP  input  keywords 


1.00  C 

2.00  C  include  file  flconch 


3.00 

PARAMETER 

LKEY-8 

4.00 

PARAMETER 

LETOT-4 

5.00 

PARAMETER 

ETOT-’ETOT’ 

G.00 

PARAMETER 

LJOB  -  3 

7.00 

PARAMETER 

JOB  -’JOB’ 

8.00 

PARAMETER 

LEND  -  3 

9.00 

PARAMETER 

END-’ END’ 

10.00 

PARAMETER 

LEITOT-5 

11.00 

PARAMETER 

EITOT-’EITOT’ 

12.00 

PARAMETER 

LTYPE-4 

13.00 

PARAMETER 

TYPE  -  ’TYPE’ 

14.00 

PARAMETER 

LBTOT-4 

15.00 

PARAMETER 

BTQT-’BTQT’ 

16.00 

PARAMETER 

LSTART-5 

17.00 

PARAMETER 

START-’START’ 

18.00 

PARAMETER 

LPRGLB-5 

19.00 

PARAMETER 

PRGLB-’PRGLB’ 

20.00 

PARAMETER 

COMMA-’ , ’ 

21.00 

PARAMETER 

LPARAN- * ( ’ 

22.00 

PARAMETER 

RPARAN-’  )’ 

23.00 

PARAMETER 

LTITLE-5 

24.00 

PARAMETER 

TITLE- ’TITLE ’ 

26.00 

PARAMETER 

BLANK-’  ’ 

27.00  C 

28.00 

PARAMETER 

LSTOP  -  4 

29.00 

PARAMETER 

STOP  -  ’STOP’ 

30.00 

PARAMETER 

CONTINUE  -  ’+’ 
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FILE  FLCONS 


1.00  C 
2.00  C 
3.00  C 
4.00 
S.00 
S.00 
7.00 
3.00 
9.00 
10.00 
11.00 
12.00 
13.00 
14.00 
IS.  00 
16.00  C 
17.00 
18.00 
19.00 
20.00 
20.10 
21.00 
22.00 
23.00 
24.00 
25.00 
26.00 
27.00 
28.00  C 
29.00  C 
30.00  C 
31.00  C 
32.00  C 
33.00  C 
34.00  C 
35.00  C 
36.00  C 
37.00  C 
38.00  C 
39.00  C 
40.00  C 
41.00  C 
42.00  C 


include  file  flcons - data  for  FLRP  access  to  schedule  relations 

historical , current , pro jected  construction  relations 
PARAMETER  HISCNM- ’ -NCJODAT .HIST J- ’ 

PARAMETER  CURCNM- ’ -NCJODAT . CURR J- * 

PARAMETER  PROCNM- ’ -NCJODAT . PRO J  J - ’ 

PARAMETER  CONSFL- ’ -SCENARIO, CLASS , HULL , COMNUM , APPROP , AWARD , DEL IV 
+ERY , COMMISSION , OAYSAODED , DATADATE , ENTRY.DATE- ’ 

PARAMETER  CONSKY- 

1  ’ -SCENARIO , CLASS , HULL , COMNUM , DATADATE : D , ENTRYJJATE : D- ’ 

COMMON/ FLCONS /hccur 1 , he cur 2 ,cccur 1 , occur 2 ,pccur 1 , pccurZ 

character*12  cfscen,cfclas*10 

integer  cf hul 1 , cf adl i f , cf numb ,  cfalin(2S> 

integer  hccurl , hccur2 ,cccurl ,cccur2 ,pccurl ,pccur2 

integer *4  cf comd.cf appd,cfaudd,cfdeld,cf datd, cfdate 

equivalence  < cfal in< 1 ) ,c f seen ) ,  ( cfalini 7  )  ,cfclas > 

+  ,<cfalin<12),cfhull),(cfalin(13) , cfnumb ) 

+  ,(sfalinL14),c  fappd  ),(cfalin( 16  ) , cfawdd  ) 

+  ,<cfalin<18>,cfdeld),(cfalin(20) , cfcond  ) 

+  , < c fal in( 22  ) ,cfadl i f  ) 

+  ,<cfaiin(23>,cfdatd),(cfalin(25),cfdate> 

character*12  ckscen,ckclas*10 
integer  ckhull,  cknumb,  ckalin(17> 
integer*4  ckdatd.ckdatn 

equivalence  ( ckal in( 1 > , ckscen  ) ,  ( ckalin< 7 > , ckclas > 

+  ,<ckalin<12),ckhuli),(ckalin(13), cknunb  ) 

+  ,<ckalin(14>,ckdatd>,(ckalin(16>,ckdatn) 

—  data  reckrd  for  FLCONS  (Force  Level  CONStruct ion )  data 


hccurl 
hccur2 
cccurl 
cccur2 
pccur 1 
pccur2 


relate  virtual 
relation,  path 
relate  virtual 
relation,  path 
relate  virtual 
relation,  path 
relate  virtual 
relation,  path 
relate  virtual 
relation,  path 
relate  virtual 
relation,  path 


cursor  for  hstorical  cknstruction 
1 

cursor  for  historical  cknstruction 
2 

cursor  for  current  cknstruction 
1 

cursor  for  current  cknstruction 

n 

L. 

cursor  for  projected  cknstruction 
1 

cursor  for  projected  cknstruction 
2 
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43.00  C  c_scenr  a  scenrio  id  < f mf ieldvalue , k*keyvalue  ) 

44.00  C  c_clas  a  ship  class  id 

45.00  C  c_hull  hull  number  for  the  ship  class 

46.00  C  c_appd  ship’s  appropriation  date 

47.00  C  c_awdd  ship’s  award  date 

48.00  C  c_deld  ship’s  delivery  date 

49.00  C  c_datd  date  this  info  was  entered  into  relate 

50.00  C  c_adlif  days  added  to  ship  life  by  this  constructio 

51.00  C  c_numb  construction  number  first“i 

52.00  C 


10-265 


ALIAS  FORTRAN  INCLUDE  FILES 


FILE  FLD03 


1.00  C  include  file  fld03 
2.00  C 

3.00  data  fld03  / “-COMFILNAME , CQMFILDESC , LASTUSED , CREATOR , DATCREATED , S 

4.00  1 T ARTMENU , NCQMS- " / 

5.00  C 

G.00  C  field  list  for  CFLIST  (Command  File  LIST)  relation 


FILE  FLD05 


137.00  C! 
138.00 
139.00 
140.00 
141.00 
142.00  C 
143.00  C 
144.00  C 


include  file  fld05 

data  fld05  / "+SCENARI0 , CLASS , HULL , YARD , COMNUM , JOBTYP , JSTYP , 

1  "CUSTOMER, CMETHD.APPROP, AWARD, START, KEEL, LAUNCH" , 

2  “ , DELIVERY , COMMISSION , DAYSADDED , AUTOMOD , ASNORDE "  , 

3  -R , SUBRELUMAP , DATADATE , ENTRY_DATE , ENTRY_BY+ " / 


field  list  for  nc jodat .pro j j 


FILE  FLD06 


166.00  C! 
167.00 
168.00 
169.00 
170.00 
171.00  C 
172.00  C 
173.00  C 


include  file  fld06 

data  fld06/"+SCENARIO, CLASS, YARD, JOBTYP, JSTYP, CUSTOMER, * , 

1  "COMPLEXSRP , COMNUM , CMETHD , DSSN_AWD , APPROP_AW " , 

2  ” 0 , AWO_ST , ST_KL , KL_LN , LN_QL , DAYSADDED , DEFLT  A " , 

3  "WDAY , TIMUNT+" / 


field  list  for  ncjdat.descj  relation 
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FILE  FLD07 


C 

C  - include  file  fld07 

data  f ld07/ “+USERNAME , RUNGROUP ,USERLEUL , READB , ALTD8 , " , 
1  “Ml ,M2 , M3 , M4 ,M5 , MS , M7 , M8 , M9 ,M10 , Ml  1 , M12 , M"  , 

1  " 13, M14 ,M15 , M16 , M17, M18 , M19,M20 , M21 , M22 , M“ , 

1  " 23 , M24 ,  M25 ,  M2B ,  M27 ,  M28 , M29 , M30 , M3 1 , M32 , M " , 

1  “33 , M34 , M35, M36 , M37 , M38 , M39 , M40 ,  M41 , M42 , M“ , 

1  “ 43 , M44 , M4S , M4S , M47 , M48 , M49 , M50+ “ / 

- field  list  for  DB  read  into  /usrprv/ 


FILE  FLD08 


C  include  file  fld08 

data  f ld08/ “ +SCENARI0 , CREATOR , RDALLQW , URALLOW , CREATED , LASTUSED+ “ / 
C  field  list  for  scenlst  relation 

C 
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FILE  FLDECM 


1.00  C 
2.00  C 
3.00  C 
4.00 
5.00 
G.00 
7.00 
8.00 
9.00 
10.00 
11.00 
12.00 
13.00 
14.00 
15.00  C 
18.00 
17.00 
18.00 
19.00 
20.00 
21.00 
22.00  C 
23.00  C 
24.00  C 
25.00  C 
26.00  C 
27.00  C 
28.00  C 
29.00  C 
30.00  C 
31.00  C 
32.00  C 
33.00  C 


include  file  fldecm 

contains  decommis ioning  data  for  all  ships,  first*l 
PARAMETER  QECMNM- ’ -DEACT . MISCJ- ' 

PARAMETER  OECMFL- 

+  1 -SCENARIO , CLASS , HULL , COMNUM , DEACT , DAT ADATE- ’ 

PARAMETER  OECMK Y- ’ -SCENARIO , CLASS , HULL , COMNUM- ' 

COMMON  /FLDECM/  dccurs 
character*12  df scen,dfclas*10 
integer  dfhull,  dfalin(17),  dccurs,  dfdean 
integer*4  df dead, df datd 

equivalence  (dfalinll  ),dfscen),(  dfalin(7),  dfclas) 
equivalence  ( df al in< 12 > ,df hull > , (  dfalin(13),  dfdean) 
equivalence  < dfal in< 14  ) , df dead  ) , (  dfalin(lB),  dfdatd) 

character*l2  dkscen,dkclas*l0 
integer  dkhull,  dkalin(lS),  dkdean 
integer*4  dkdatd 

equivalence  <dkalin(l  >,dk.scen),(  dkalin(7>,  dkcias) 
equivalence  < dkal in( 12  ), dkhull  ), (  dkalin(13>,  dkdean; 
equivalence  ( dkal in( 14  ), dkdatd > 

—  data  record  for  DECOMM  ( DECOMMisioning  )  data 

d_curs  relate  virtual  cursor 

d_scenr  a  scenrio  id 

d_clas  a  ship  class  id 

d_hull  hull  number  for  the  ship  class 

d_dean  the  number  of  this  ship's  deactivation 

d_dead  the  date  of  this  deactivation 

d_datd  date  this  info  was  entered  into  relate 
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FILE  FLHEAD 


1.00  C 

2.00  C  include  file  flhead  FLRP  page  header  info 
3.00  CHARACTER  TITLES*LLONG( MXTITL > , PERHED*LLONG< LINPH  ) 

4.00  CHARACTER  LABPRG*LENRLB<  MAXPRG  > ,  UNTQTL*LLONG 

5.00  INTEGER  NTITLE 

S.00  COMMON/ FLHEAD/  NTITLE , TITLES , PERHED , LABPRG , UNTOTL 

7.00  C  —  ntitle  number  of  lines  of  title 

8.00  C  —  title  title  text  lines 

9.00  C  —  perhed  period  header  text  lines 

10.00  C  —  labprg  label  for  program  i 

11.00  C  —  untotl  equal  marks  above  total  line 

12.00  C 


FILE  FLIOC 


1.00  C 

.00  C  include  file  flioc  10  un’t  numbers  for  FLRP 
.00  INTEGER  QCNTRL ,  IQUTFL,  FLRPTF 

.00  COMMON/FLIOC/  OCNTRL ,  IOUTFL,  FLRPTF 

.00  C  —  ocntrl  force  level  report  input  file 

6.00  C  —  ioutfl  write  report  here 

7.00  C  —  flrptf  write  permanent  report  here 

8.00  C 
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FILE  FLJLST 


1.00  c 

2.00  C 
3.00 
4.00 
5.00 
S.00 
7.00  C 
8.00  C 
9.00  C 
10.00  C 


include  file  fljlst 
LOGICAL  NONEON 
INTEGER  NINCLUO 
CHARACTER* 12  INCLST 

COMMON  /FLJLST/  NONEON,  NINCLUO,  INCLST ( MAXLST  > 

—  noneon  true  if  nothing  from  joblist  was  on 

—  ninclud  number  of  joblist  condidates  on 

—  inclst  list  of  joblist  on  candidates 


file  flpage 


1.00  c 

2.00  C 

3.00 

4.00  C 

4.10 

4.20 

4 . 30 

5.00 

e.00  c 

7.00  C 
8.00  C 
9.00  C 
10.00  C 
11.00  C 
12.00  C 


include  file  flpage 

INTEGER  INBUF , NONPAG , f lpds 
CHARACTER  PAGEBUF*LLONG< LENBUF  ) 
character  pagebuf *1  long 
integer  ipageb<70> 
equivalence  ( pagebuf , ipageb  ) 

COMMON  /FLPAGE/ f lpds , INBUF , NONPAG 

—  nonpage  number  already  printed  to  output  page 

—  inbuf  number  already  in  output  buffer 

—  pagebuf  page  buffer,  will  go  to  output  page 

NQTE:  the  array  version  of  pagebuf  was  made  scalar 
and  local  due  to  HP  memory  "strict  ions ;  storage  is 
now  in  exteneded  memory  segment  8001. 
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FILE  FLPERO 


1.00  C 

2.00  C  include  file  flperd 
3.00  INTEGER  NPERIOO 

4.00  INTEGER*4  OATPER 

5.00  COMMON/FLPERO/  NPERIOD , DATPER( MXPERD  ) 

6.00  C  —  datper  any  ship  active  on  datper*(i)is  in  penod(  l 

7.00  C  —  nperiod  number  of  periods  being  examined 

8 . 00  C 


FILE  FLPMTR 


1.00  C 

2.00  C  include  file  flpmtr  FLRP  parameters 


3.00 

PARAMETER 

CNLEN-12 

4.00 

PARAMETER 

MAXCLAS-100 

5.00 

PARAMETER 

MXTITL-10 

6.00 

PARAMETER 

LLONG-132 

7.00 

PARAMETER 

BLTITL-’ 

8.00 

+ 

9.00 

+ 

10.00 

PARAMETER 

LENLLB-12 

11.00 

PARAMETER 

LENRLB-12 

12.00 

PARAMETER 

W0TC0L-5 

13.00 

PARAMETER 

LINPH-3 

14.00 

PARAMETER 

MAXLST-100 

15.00 

PARAMETER 

LENBUF-80 

16.00 

PARAMETER 

LENPAG-60 

17.00 

PARAMETER 

MXPERD-20 

18.00 

PARAMETER 

MAXPRG  -  4 

19.00 
20.00  C 

PARAMETER 

MXTOTL-15 
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FILE  FLRJOB 


1.00  C 
2.00  C 
3.00  C 
4.00 
5.00 
6.00 
7.00 
8.00 
3.00 
10.00 
11.00 
12.00 
13.00 
14.00 
15.00 
16.00 
17.00 
18.00 
19.00 
20.00 
21.00 
22.00 
23.00 
24.00 
25.00 
26.00  C 
27.00 
28.00 
29.00 
30.00 
31.00 
32.00 
32.10 
33.00  C 
34.00 
35.00 
36.00 
37.00 
38.00 
39.00 
40.00  C 
41.00  C 
42.00  C 


include  file  flrjob 

contains  repair  job  data  for  historical,  current ,  projected  ships 
PARAMETER  HI S JNM- » -RE JODAT . HIST J- ’ 

PARAMETER  CUR JNM- ’ -REJODAT . CURR J- ’ 

PARAMETER  PRO JNM- ’ -REJODAT . PRO J J- ’ 

PARAMETER  RJ08FL- 

+  ’ -SCENARIO , RE JOBT , CLASS , HULL , JOBID , START , DELIVERY , DAYSADDED , DATA 

+OATE- ’ 

PARAMETER  RJ0BK1- ’ -SCENARIO , REJOBT , CLASS , JOBID , 

+  DATAOATE  =  D , ENTRYJDATE  =  D- * 

PARAMETER  RJOBK2- 

1  ’  -SCENARIO ,  CLASS ,  HULL  .JOBID,  DATADATE  =  0 ,  ENTRY_DATE  ■.  D-  ’ 

COMMON  /FLRJOB/  hjcurl ,hjcur2,cjcurl ,cjcur2,pjcurl , 

+  Pjcur2 

integer  hjcurl , h jcur2 , c jcurl ,c jcur2 ,p jcurl , 

+  pjcur2 

character  j  f seen* 12 , jfclas*10,jfjobn*6 
integer  jfhull,  jfalin(2B>,  jfadda  .jfjobid 
integer*4  j fbegd, j fendd, j f datd 

equivalence  ( j f al in( 1  ) , j f seen  ) ,  ( j f al in( 7  ) , j f j obn  ) 
equivalence  ( j f al in( 10  ) , j f c las > ,  ( j fal in( 15 ) , j f hul 1 ) 
equivalence  < j f alin< IS > , j f jobid > 

equivalence  ( j fal in< 17  ), j fbegd > ,  ( j fal in< 19  ), j fendd ) 
equivalence  ( j f al in< 21 > , j f adda  ) ,  ( j fal in( 22  ) , j f datd  ) 

character  jklscen*l2,jklclas*10,jkljobn*6 
integer jkial in< 22  ) , jk  1  j id 
integer*4  jkldatd, jkldate 

equivalence  < jk lal in< 1  ) , jklscen  > ,  ( jklalin< 7  ) , jkl jobn  ) 
equivalence  <  jk.lalin<  10  ) ,  jk  Idas  > 

equivalence  ( jkial in< 15 > ,  jkl j id  ) ,  ( jklalin( 16  ), jkldatd > 
equivalence  (jklalin< 18), jkl date) 

character*11  jk2scen, jk2clas*10 
integer  jk2hull,  j.k2al  in(  20  > ,  j  k  2  j  id 
integer*4  jk,2datd,  jk2datn 

equivalence  < jk2al in< 1  ) , j k2scen  ) ,  ( j k2al in( 7  ) ,  jk2clas  ) 
equivalence  <  jk 2al  in<  12  > ,  jk.2hul  1  > ,  (  jk2alin<  13  ) ,  jk2j  id  ) 
equivalence  ( j  k2al in( 14>,jk2datd),( jk2alin< 16  ),jk2datn) 

—  data  record  for  FLRJ0B(  Repair  JOBs )  data 
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43.00  C 

j_curs 

relate  virtual  cursor( f»f ieldvaiue,kl=keyl 

44.00  C 

j_scenr 

a  scenrio  id  ,k2-key2) 

45.00  C 

j_clas 

a  ship  class  id 

46.00  C 

j_hul 1 

hull  nunber  for  the  ship  class 

47.00  C 

j_appd 

ship's  appropriation  date 

48.00  C 

j_awdd 

ship's  award  date 

49.00  C 

j_deld 

ship's  delivery  date 

50.00  C 

j_datd 

date  this  info  was  entered  into  relate 

51.00  C 
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FILE  FLTABLS 


1.00  C 
2.00  C 
3.00 
4.00 
S.00 
6.00  C 
7.00  C 
8.00  C 
9.00  C 
10.00  C 


include  file  fltabls 
INT£GER*4  PRGBES 

INTEGER  NPROGS,  FLTABL? MAXCLAS , MXPERD , MAXPRG > 

COMMON  /FLTABLS/  NPROGS , FLTABL , PRGBEG( MAXPRG  ) 

—  nprogs  number  of  program  types  studied 

—  fltabl  force  level  table,  number  of  that  class  in 

that  period  for  that  program  type 

—  prgbeg  date  of  program  start 


FILE  FLTOTL 


1.00  C 
2.00  C 
3 . 00 
4.00 
5.00 
6.00 
7.00  C 
8.00  C 
9.00  C 
10.00  C 


include  file  fltotl 

CHARACTER  TOTID*LENRLB 
INTEGER  NTOTAR, TOTALS, INTOTL 
COMMON/FLTOTL/NTOTAR,  TOTALS?  MXTOTL , MXPERD  ) 

+  ,T0TI0(  MXTOTL), INTOTL? MXTOTL) 

ntotal  number  of  rows? arrays)  in  total  being  computed 

totals  holds  all  totals  for  each  period  in  computation 

totid  holds  label  for  total 
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FILE  FLVALU 


include  file  flvalu 
LOGICAL  FLKEEP 
INTEGER*4  FLBXER 
INTEGER**  FLFXER 
CHARACTER*  8  FLMRET 
CHARACTER*  8  FLPLEN 
CHARACTER*  8  FLINFR 
CHARACTER*  8  FLPMLS 
CHARACTER*  24  FLRJOB 

CQMMQN/FLVALU/FLKEEP , FLBXER , FLFXER , FLMRET , FLPLEN , FLINFR 
+  , FLPMLS,  FLRJOB 


FILE  FUNCB6 


1.00  C 
.00  C 
.00 
4.00 
5.00 
6.00  C 
7.00  C 
8.00  C 
8.00  C 
10.00  C 
20.00  C 


mclude  file  funcbg 

INTEGER  NFUNC , FDEFINE <  MXCHOICE , MXFUNC ) 

CHARACTER  FNML5T*CNLEN( MXFUNC  ) 

COMMON /FUNCBG /NFUNC , FOEFINE , FNMLST 
nfunc  number  of  funtional  families  defined 
fdefine  for  each  funct  ion, this  holds  index  into  type  arrays 
of  type  which  will  perform  the  function  in  order  of 
choice,  l*highest  priority 

fnmist  function  names  for  cross  referencing  into  fdefine 
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FILE  6NTUPD 


352.00  C»-*include  file  gntupd 

353.00  parameter  ntyp  ■  2  ,  mxtlen  •  28,  nfil  ■  5,  mxtlenb  »  56 

354.00  parameter  mxvc_200,mxvy*100,mxvj“20 

355.00  common  /gntupd/nrels , nomore( nfil  ) , itup( mxt len , nf i  1 > , gnf ld( nt yp > , 

356.00  1  k lenb , gncurs( nf i 1  ) , gnf i le( nf 1 1  ) , gnt ype< nf i 1  ) , 

357.00  2  vlclaa( mxvc  ) , vlyard( mxvy  ) , vl jobt ( mxvj  ) , 

358.00  3  nowcls<  nf  i  1  ) , nouiyrd(  nf  i  1  ) ,  nowjob(  nf  i  1  ) , 

359.00  4  nvclaa  ,nvyard  ,nvjoba 

360.00  integer  nrel a , l tup , k lenb .gncura 

361.00  character  gnfld*62 

362.00  character  gnf l le* 18 , c tup*mx t lenb( nf i 1  ) 

363.00  character  vlclas*10, vlyard*8, vljobt*6 

364.00  integer  nowcla , nowyrd, now job 

365.00  integer  nvclaa , nvyard.nvjobs 

366.00  logical  nomore 

367.00  equivalence  (itup,ctup) 

368.00  C 

369.00  C  atatic  atorage  for  gntup  routine 

370.00  C  nrela  number  of  relationa  to  be  acceaaed  (max  nfil) 

371.00  C  nomore  true  if  no  more  data  in  relation  i 

372.00  C  ltup  atorage  for  current  tuplea 

373.00  C  klenb  length  of  key  aection  of  tuple  in  bytea  (for  chaah  ) 

374.00  C  gncura  curaor  indexea  for  each  relation 

375.00  C  gnfile  name  of  each  relation 

376.00  C  gnfld  field  iiat  for  two  relation  typea 

377.00  C  gntype  type  of  each  relation 

378.00  C  vl : claa,yard, jobt  liata  of  valid  field  valuea 

379.00  C  nv ; c las , yard , jobs  number  of  members  on  each  valid  list 

380.00  C**ENDBLK 

381.00  C 
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FILE  6R0UPB6 


1.00  C 
2.00  C 
3.00 
4.00 
5 . 00 
6 . 00 
7.00 
8.00  C 
9.00  C 
10.00  C 
11.00  C 
12.00  C 
13.00  C 


include  file  groupbg 

INTEGER  NGROUP , GRPFILP( MXPERQ , MXGROUP  )  ,GMKPTR( MXGROUP  ) 
INTEGER  DGRPLEUL(  MXPERD , MXGROUP ) , AGRPLEUL< MXPERD , MXGROUP ) 
CHARACTER  GRPLAB*LENRLB< MXGROUP  >, GRPLST*CNLEN< MXGROUP  ) 
COMMON /GROUPBG /NGROUP , GRPFILP , GMKPTR , DGRPLEUL , AGRPLEUL . 

+  GRPLAB , GRPLST 


ngroup 
grpf ilp 
dgrplevl 
agrplevl 
grplab 
grp  1st 


number  of  battle  groups 
group’s  fill  priority  order(lhigh) 
desired  number  of  this  group 
actual  number  of  this  group  found 
label  for  output  group  Ikine 
list  of  group  names 
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FILE  INCPAR 

1.00  C 

2.00  C  include  file  incpar  MNUR  parameters 


3.00 

PARAMETER 

MXMENU  -  100 

4.00 

PARAMETER 

MAXOPT  -  IS 

S.00 

PARAMETER 

LLINE  *  72 

6.00 

PARAMETER 

LTEXT  -  70 

7.00 

PARAMETER 

SNAME  -  6 

8.00 

PARAMETER 

LNAME  -  6 

9.00 

PARAMETER 

DIMNAME  =  8 

10.00 

PARAMETER 

LHTXT  -  800 

11.00 

C 

mxmenu 

maximum  number  of  choice  or  parameter  menus 

12.00 

C 

maxopt 

maximun  options  per  choice  or  param.  menu 

13.00 

C 

1  line 

length  of  an  input  line 

14.00 

c 

1  text 

length  of  input  descriptive  text 

15.00 

c 

lname 

max.  length  of  a  parameter  name 

16.00 

c 

sname 

max.  length  of  a  subroutine  name 

17.00 

c 

dimname 

dimension  of  a  name>-lname ;  divisible  by  12 

18.00 

19.00 

c 

c 

lhtxt 

max.  length  of  a  menu's  help  text 
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FILE 


1.00  C 

.00  C  include  file  indexs  DBIF  index  tracking  info 

.00  PARAMETER  michn*  6,roidx»  4,mcidx*l32 

.00  COMMON  /indexs/  idxchn< michn  ) , idx( midx  ) 

.00  INTEGER  idxchn 

G.00  CHARACTER  idx*mcidx 

7.00  C  idxchn»index  chain  idx»index  pool 

8.00  C 


FILE 


1.00  C 

2.00  C  include  file  inputi  CORE  ( REAOLN  >  LAST  LINE  BUFFER 

3.00  INTEGER  LENLN 

4.00  CHARACTER  LASTLN*LLINE 

5.00  COMMON  /  INPUTL/  LENLN, LASTLN 

6.00  C  lenln  non-blankes  length  of  lastln 

7.00  C  lastln  last  line  read  from  command  input  file 

8.00  C 


INDEXS 


INPUTL 
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FILE  10 


1.00  C 

2.00  C  include  file  10  TERMINAL  I/O  UNIT  NUMBERS 

3.00  COMMON  /io/  in,iout,itty 

4.00  INTEGER  in, lout, itty 

5.00  C 

6.00  C  in  -standard  INput  unit  lout  -standard  OUTput  unit 

7.00  C  itty  -standard  user  input  unit 

8.00  C 


FILE  IOC 


1.00  C 
2.00  C 


n 

.  10 

3 . 

.00 

4, 

.00 

5. 

.00 

6. 

.00 

7, 

.00  C 

8. 

.00 

9. 

.00 

10. 

.00 

10.10  C 
10.20  C 
10.30  C 
11.00  C 
12.00  C 
13.00  C 
14.00  C 
15.00  C 
16.00  C 
17.00  C 
18.00  C 
19.00  C 
20.00  C 
21.00  C 
22.00  C 
23.00  C 


include  file  iac- 

parameter  salp  -  8,  daisy-  7,  termni-  S 
parameter  syshlp-49,  sysmp-48,  dpdesc-51,  drunp-52 
parameter  dcmen-53,  dmroot-54,  dpxref-55,  dpequi»56 
parameter  dpdec-57,  dpmen-58 ,  dht*t-59,  ddtxt-60 
parameter  deumt-22,  idumt-23 
units  24-27  used  by  scenario  system 
parameter  modhlp-28 

INTEGER  IN , IOUT , IOUTLP , ITTY IN , ITT YOU , IQCEXTRA( 10  ) 
COMMON/IOC/  IN, IOUT, IOUTLP, ITTYIN, ITTYOU, IOCEXTRA 
salp  unit  number  for  PMS  392  line  printer 

daisy  unit  number  for  SEA  90  daisy  wheel  printer 

termni  unit  number  for  SSTDLIST 
loutlp  file  assigned  to  desired  output  printer 
in  file  from  which  input  is  expected 

lout  file  to  which  output  is  written 
drunp  file  to  which  subroutine  runprocs  is  written 
ittyin  file  assigned  to  input  from  screen  file 
ittyou  file  assigned  to  output  to  screen  file 
dpdecs  file  to  which  common/pdecs/  is  written 
dlistm  file  to  which  list  memory  is  written 
dmroot  file  to  which  common/mroot /  is  written 
dpxref  file  to  which  parameter  menu  field  lists 
and  pointers  are  written 

dpequi  file  to  which  equivalence  statement  between 
pvalue  and  parameter  names  is  written 
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24.00  C  dpdec  file  to  which  parameter  type  statements 

25.00  C  are  written 

2S.00  C  deunit  data  maintenance  subsystem  def  file  unit 

27.00  C  idunit  unit  on  which  unique  id  code  generator  file  opens 

8.00  C  locextra  use  this  space  when  adding  to  common  block 

9.00  C  rather  than  recompile  the  world. 

30.00  C  modhlp  unit  module  help/menu  text  file  is  opened  on 

31.00  C 
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FILE  LINKM 


1.00  C 

2.00  C  include  file  linkm  - list  memory  global  storage 

3.00  PARAMETER  lenlkm  -  4000,  llinkm  -  8006 

4.00  COMMON  /linkm/  iavail,  iavind,  nbcell,  1 inkm< lenlkm ) 

5.00  INTEGER*4  iavail,  iavind,  nbcell,  linkm 

6.00  C  iavail-  free  cell  chain  ptr  iavind-  ’available’  indicator  value 
7.00  C  nbcell-  t  words  in  list  mem  linkm  -  Linked  list  memory  array 
8.00  C 


FILE  LISTYP 


42.00  C 

43.00  C  include  file  listyp 

44.00  common  /listyp/  nltyps,  ltyps( mxltyp > 

45.00  integer  nltyps 

46.00  character*8  ltyps 

47.00  C 

48.00  C  Common  listyp  contains  a  list  of  ail  valid  list  menu  types. 

49.00  C  nltyps  Number  of  List  menu  TYPeS  generated  by  mnugen. 

50.00  C  ltyps  names  of  List  menu  TYPes  generated  by  mnugen. 

51.00  C 


.  fl 
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1.00  C 
2.00  C 
3.00 
4.00 
5.00 
6.00  C 
7.00  C 
8.00  C 
8.10  C 
8.20  C 
9.00  C 


1.00  C 
2.00  C 
3.00 
4.00 
5.00 
6.00  C 


FILE  LMENU 


include  file  lmenu  MNUR - pointer  for  current  list  menu 

CHARACTERS  LMID,  LMRELT 

INTEGERS  ITXTP ,  LHPTR  ,  LHLEN 

COMMON  /LMENU/  ITXTP , LMRELT ,  LMID,  LHPTR,  LHLEN 

itxtp  pointer  to  list  menu’s  title  text 

lmid  unique  list  menu  id  for  data  base 

lmrelt  relation  type  of  list  menu  for  current  parameter 

Ihptr  pointer  to  list  help  in  dhtxt 

lhlen  number  of  lines  of  help  text 


FILE  LPRNTS 


include  file  lprnts  DIAGNOSTIC  SWITCHES 

COMMON  /lprnts/  ioutp , lprnts( 160 > 

INTEGER  ioutp 
LOGICAL  lprnts,  lprnt 
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FILE  LTYPAC 


98.00  C 
99.00  C 
100 . 00 
101.00 
102.00 
103.00  C 
104.00  C 
105.00  c 
106.00  c 
107.00  c 
108.00  c 
109.00  c 
110.00  c 
111.00  C 


include  file  ltypac 

common  /ltypac/  i typer , t f li st 
integer  ityper 
character*30  tflist 

Common  List  TyPe  relation  ACcess  allows  a  single  open  and 
field- list  construction  to  occur  when  a  given  list  menu 
is  to  be  updated.  Saving  the  field-list,  which  contains 
the  field  name  of  the  proper  status  column,  saves  much 
redundant  OB  accessing. 

ityper  cursor  number  for  the  current  list  type  relation 
tflist  field  list  for  the  current  list  type  menu 


FILE  LUAL 


1.00  C 
2.00  C 
3.00 
4.00 

4.10 
5.00 
6.00 
7.00 

7.10 
8.00  C 


include  file  lval=  MNUR - list  menu  candidates/statuses 

PARAMETER  MAXLST  -  200 
INTESER  NLITMS ,  LENHLP 
INTEGER*4  LHLPPTR 
CHARACTER* 12  CNAME 
LOGICAL  STATUS 

COMMON/LUAL/NLITMS,  CNAME( MAXLST  ) ,  STATUS( MAXLST > 

+  .LHLPPTR,  LENHLP 
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FILE  MKUPB6 


1.00  C 
2.00  C 
3.00 
4.00 
5.00  C 
6.00  C 
7.00  C 
8.00  C 
9.00  C 
10.00  C 
20.00  C 


include  file  mkupbg  B6RP - aggregation  control  data 

INTEGER  LASTREC , BGMAKUP <  MXMKUP , 3 ) 

COMMON/MKUPBG/LASTREC , BGMAKUP 

lastrec  last  rou  of  bgamkup  filled 

bgmakup  holds  group  makeup  definitions,  1  col*ptr 

to  next  row  in  bgmakup  holding  next  part  of 
definition,  0  if  last.  2  col  index  into  funtion 
arrays,  3  col  t  of  this  function  needed  to  makeup 
one  battlegroup 


FILE  MNUPRM 


25.00  C 
27.00  C 
28.00 
29.00  C 
30.00 
31.00  C 
32.00  C 
33.00  C 
34.00  C 
35.00  C 
36.00  C 
37.00  C 
38.00  C 
39.00  C 
40.00  C 


include  file  mnuprm 

parameter  mxlfld*12,  mxltyp*50,  mxrels**200,  nltrcl»09 
parameter  maxmlt*nltrcl/mxscen;  f  columns  in  list  type  rel/mxscen 
parameter  mxlmlt_5 

Contains  parameters  used  exclusively  by  the  menu  system, 
mxlfld  MaXimum  List  menu  relation  candidate  FieLD  sise. 

Be  sure  to  alter  hardwired  creation  call  in  glstrl  if 
this  parameter’s  value  is  changed, 
mxltyp  MaXimum  number  of  List  menu  TYPe  relations, 

mxrels  MaXimum  number  of  RELatlonS  creatable  by  mnugen. 

nltrcl  Number  of  List  Type  Relation  CoLumns. 
mxlmlt  MaXimum  List  Menus  per  List  Type 


FILE  MROOT 


1.00  C 
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2.00  C 
3.00 
4.00 
5.00  C 


include  file  mroot =  MNUR - pointer  to  root  menu 

INTE6ER*4  MRTPTR 
COMMON  /MR00T/MRTPTR 


T  ’  -V  ~ 


i  ^  '  ^  1  n  ■  . 1 


■  •ST’iV’S'l'*  -W  •  -n 


% 

i/- 


A 


[5 


IM 


r- 


f 


ALIAS  FORTRAN  INCLUDE  FILES 


FILE  PARAMS 


2.00 

3.00 

4.00 

5.00 

6.00 

7.00 

8.00 

9.00 

10.00 


1.00  C 
2.00  C 
3.00 
4.00 
5.00  C 


include  file  parens 

parameter  rnmxch“6,  mxscen* 


10 


Contains  system-level  parameters, 
rnmxch  Relation  Name  MaXimum  Characters. 

than  7  for  HP  RELATE, 
mxscen  MaXimum  number  of  SCENarios. 


May  be  no  more 


FILE  PARLST 


include  file  parlst= 

CHARACTER  PMNLST *LNAME 
COMMON  /PARLST/  PMNLST ( MXMENU  > 


MNU6 - list  of  parameter  me«ius  read 
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m.  my 

i 


c-s 

L-j 

l  .iti 


1.00  C 
2.00  C 
3.00 
4 . 00 
5.00 
6.00 
7.00 
8.00 
9.00 
10.00  C 
11.00  C 
12.00  C 
13.00  C 
14.00  C 
15.00  C 
16.00  C 
17.00  C 


1.00  C 
2.00  C 
3.00 
5.00 
6.00 
7.00 
8.00  C 
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FILE  PCREAT 


include  file  pcreat :  MNU6 - data  for  parameter  storage  setup 

INTEGER  ISTRC,  NPAOS,  IDFLTV 
PARAMETER  MXLSTR  -  300 
CHARACTER* 1  STRCTR ,  CDEFLT*4< 100  > 

REAL  OEFLTV 

COMMON  /  PCREAT/  ISTRC,  DEFLTV<100>,  STRCTRt MXLSTR ) 

1  , NPAOS, IDFLTU 

EQUIVALENCE  < COEFLTC 1 )  ,0EFLTV( 1 >  > 
instrc  t  of  characters  in  strctr 
npads  t  of  padding  variables  used 
idlftv  t  of  words  used  in  defltv 

defltv  default  values  for  relation  command  in  listqeueu 
cdeflt  character  rep.  of  defltv 
listqu  actual  queue  of  list  commands, 
first  out  »  listqu< inque  ), 


FILE  POESC 


include  file  pdesc  : 

INTEGER *4  MPTXTP,  PHPTR 

INTEGER  MPINOX ,  MPTYPE,  MPLEN,  PHLEN 

COMMON/PDESC/  MPTXTP<  MAXOPT  )  ,MPLEN( MAXOPT  > , PHLEN< MAXOPT ) , 
1  MPIN0X< MAXOPT),  MPTYPE( MAXOPT > ,  PHPTR< MAXOPT ) 


J 


.%V; 

l-.v* 
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FILE  P6SYS 


1.00  C  include  file  pgsys 
2.00  parameter  pgunit-29 

3.00  common  /pgsys/pgat In , pgnext , pgout , pgl len , pgplen , pgwf c , 

4.00  1  pgomod,pgfmod,pgquit ,pgqchr .pglast ,pgtop 

5.00  integer  pgatln,pgomod,pgfmod,pgout ,pgilen, pgplen 

6.00  integer  pglast ,pgtop ,pgnext 

7.00  logical  pgquit.pgwfc 

3.00  character*l  pgqchr 

9.00  C  control  data  for  page  printer 

10.00  C  pgatln  location  of  last  line  added  to  page  buffer 

11.00  C  pgnext  location  of  next  free  line  in  buffer 

12.00  C  pgout  unit  to  send  output  to 

13.00  C  pgllen  line  length  of  output  page 

14.00  C  pgplen  number  of  lines  per  output  page 

15.00  C  pgwfc  true  if  first  call  to  pgwrit  has  been  made 

16.00  C  pgomod  operating  mode: 

17.00  C  1-prompt  user  for  page  feed,  print  until  eopage ; prompt 

18.00  C  2-don' t  prompt  user,  print  continuously,  header  each  pg 

19.00  C  3-don't  prompt,  print  contmously  with  header  top  only 

20.00  C  4-don' t  prompt  user,  let  user  print  on  eopage 

21.00  C  pgfmod  line  feed  mode:  1  for  sclear,  2  for  lhl 

22.00  C  pgquit  quit?  prompting  in  effect 

23.00  C  prqchr  recognition  character  indicating  quit 

24.00  C  pglast  location  in  buffer  of  last  line  guaranteed  to  fit 

25.00  C  on  this  page 

26.00  C  pgtop  location  in  buffer  of  first  line  awaiting  printing 
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FILE  PMENU 


1.00  C 

.00  C  include  file  pmenu:  MNUR - current  parameter  menu  info 

.10  CHARACTER  RNTXT  *0IMNAM£ , MPTTXT *LLINE 

.00  INTEGER*4  MPHPTR 

.00  INTEGER  IDPMEN,  MAXPGI ,MPHLEN 

.00  COMMON/PMENU/  IOPMEN .MAXPGI .MPHLEN, MPHPTR 

•00  1  , RNTXT,  MPTTXT 

.00  C 


FILE  PPINDX 


1.00  C 

2.00  C  include  file  ppindx:  MNUG - parameter  set  up  data 

3.00  INTEGER  NXTPGI ,  PUINOX 

4.00  COMMON/PPINOX/  NXTPGI,  PVINDX 

5.00  C  nxtpgi  the  next  parameter  to  be  defined  will  use 
6 -00  C  index-nxtpgi  in  the  arrays  of  common/pdesc 

7.00  C  pvmdx  the  value  of  the  next  parameter  to  be 
8.00  C  defined  will  begin  at  pvalue< pvindx  ) 

9.00  C 


10-290 


ALIAS  FORTRAN  INCLUOE  FILES 


FILE  PRMCRS 


1.00 

2.00 

3.00 

4.00 

S.00 

6.00 

7.00 


INCLUDE  FILE  PRMCRS  CORE — "permanently  open  cursors 

common  / prmcrs/cf lcrs , Icrcrs , snucrs 
integer  c f lcrs , Icrcrs , snucrs 

cflcrs  cursor  for  command  file  CFLIST  relation 
Icrcrs  cursor  for  lccref — list  menu  crossref 
snucrs  cursor  for  snusers — scenarios  now  in  use 


FILE  PVALUE 


1.00  C 
2.00  C 
3.00 
4.00 
5.00 
6.00 
7.00 
3.00 
9.00 
10.00 
11.00  C 


include  file  pvalue;  MNUR - parameter  values  storage 

PARAMETER  PTLEN-500 
REAL  PVALUE< PTLEN) 

INTEGER  I VALUE<  2 , PTLEN  ) 

INTEGER*4  0VALUE<  PTLEN ) 

CHARACTER  CVALUE*4( PTLEN  > 

LOGICAL  LVALUE<  2 , PTLEN  ) 

COMMON  /PVAL/  PUALUE 

EQUIVALENCE  <  PUALUE , IUALUE , DUALUE , CUALUE , LVALUE  ) 
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FILE  PUDECL 

CORE - mnug-written  decls  for  /pvalue/  equiva 


CHARACTER* 

8 

TTYTYP 

CHARACTER* 

12 

LPUNIT 

LOGICAL  PA01 

,  PSMNUH 

CHARACTER* 

8 

PDURAT 

INTESER*4 

DPFRST 

INTEGER** 

DPLAST 

CHARACTER* 

2* 

ASNYDS 

CHARACTER* 

24 

ASNCLS 

CHARACTER* 

2* 

ASNJTP 

CHARACTER* 

8 

OISBAS 

CHARACTER* 

8 

AOJBAS 

CHARACTER* 

12 

ADJMOD 

CHARACTER* 

12 

JEPOCH 

CHARACTER* 

12 

SRTCLS 

CHARACTER* 

12 

SRTYRO 

CHARACTER* 

* 

REFRSH 

LOGICAL  PA02 

,  RPKEEP 

INTEGER** 

RPBXER 

INTEGER** 

RPFXER 

CHARACTER* 

8 

RPMRET 

CHARACTER* 

8 

RPPLEN 

CHARACTER* 

8 

RPINFR 

CHARACTER* 

8 

RPPMLS 

CHARACTER* 

2* 

RPR JOB 
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EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


<  PVALU£( 
<PVALUE< 

( IVALUE< 1 , 
( IVALUE(2, 

( PVALUE< 
(PVALUEt 
<PVALUE< 

( PVALUE( 
(PVALUE< 

( PVALUE< 

( PVALUE( 
(PVALUE< 

( PVALUE< 

< PVALUE( 
<PVALUE< 
(PVALUE( 
<PVALUE( 

( IVALUE< i, 
< IVALUE( 2 , 
(PVALUE( 
(PVALUE( 
<PVALUE( 
(PVALUE< 
<PVALUE( 

<  PVALUE< 


EQUIVALENCE  <PVALUE< 


CORE - mnug-wr 1 1 1  en 

1  ) , TTYTYP  ) 

3  > , LPUNIT  ) 

S),PA01  ) 

S ),PSMNUH) 

7  ) , PDURAT  ) 

9 ) , DPFRST  ) 

10 )  , DPLAST  ) 

11 )  , ASNYDS  ) 

17 ) , ASNCLS  ) 

23 ) , ASNJTP  ) 

29 ) ,DISBAS  ) 

31 ) , ADJBAS  ) 

33 ) , AOJMOD  ) 

3B ) , JEPQCH  ) 

39 ) , SRTCLS  ) 

42 ) , SRTYRD  > 

45 )  , REFRSH  > 

4S  > , PAD2  ) 

46 )  , RPKEEP  ) 

47 )  , RPBXER  ) 

48  ) , RPFXER  ) 

49  ) , RPMRET  ) 

51  ) , RPPLEN  ) 

53  ) , RPINFR  ) 

55  ) , RPPMLS  ) 

57  > , RPRJOB  > 


FILE  PVEQIV 

equivs  to  /pvaiue/ 


« 


« 


« 


« 


i 


.  i 


( 


( 
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* 


K 


1.00 

2.00 

3.00 

4.00 

5.00 

5.00 

7.00 

3.00 

9.00 

10.00 

11.00 

12.00 


ALIAS  FORTRAN  INCLUDE  FILES 


FILE  PXREF 


include  file  pxref  MNUR - parameter  storage  retrieval 

PARAMETER  OFLEN  -  108 

PARAMETER  OFLEN  -  MAXOPT  *<LNAME+1>  +2 

CHARACTER  P0FLDL*0FLEN 

INTEGER  NPRMEN.NXTFLD 

COMMON  /PXREF/  PDFLDL, NPRMEN.NXTFLD 

dflen  delemited  field  list’s  max.  length 

pdfldl  delimeted  field  list  for  idpmen  *  i 

nprmen  number  of  parameter  menus  defined 

nxtfld  next  character  in  pdfldl  goes  here 


y 
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FILE  RCRO01 


1.00 

2.00 

3.00 

4.00 

5.00 

6.00 

7.00 

8.00 

9.00 

10.00 

11.00 

12.00 

13.00 

14.00 

15.00 

16.00 

17.00 


C 

C 


C 

c 

c 

c 

c 

c 

c 

c 

c 


include  file  rcrdOl 

common  /rcrd01/menu01 ,rltn01 ,coim01 
character  colm01*4 
character*8  menuOl ,r ltnOi 
character*34  fld01 
integer  alin01<10) 
equivalence  < alinOl ,menu01  ) 

Common  /rcrdOl/  provides  a  record  for  use  in  passing 
data  to  the  lcrref  relation. 
scen01  a  scenario  id 

colmOl  column  number  given  menu  is  stored  in  in  relation 

menuOl  a  list  menu  identifier 

rltnOl  a  list  type  relation  name 

fld01  field  list  for  the  lcrref  relation 


FILE  RCRD03 


730.00  C 
731.00  C 
732.00  C 
733 . 00 

733.10 

733.20 
734.00 
735 . 00 

735.10 
736 . 00 

736.10 

736.20 
737.00  C 
738.00  C 
739.00  C 
740.00  C 
741.00  C 
742.00  C 


include  file  rcrd03 

common  /rcrd03/c f lnam , c f idsc , cf lusd , c f 1c tr , c f lc t d , c f 1 smu 
1  .cflrec 

integer  cflrec 

character*8  cf  lnam.cf  lctr  ,cf  l^smu 
character*42  cfldsc 
character*70  fld03 
real  cf lctd,cf lusd 
integer  alin03<38) 
equivalence  <alin03,cf lnam ) 

data  record  for  CFLIST  (Command  File  LIST)  relation 

cflnam  command  file  name 

cfldsc  command  file  description 

cflusd  command  file  last-used  date 
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145.00  C 
146.00 
147.00 
148.00 
149.00 
150.00 
151.00 
152..  00 
153.00 
154.00 
155.00 
156.00  C 
157.00  C 
158.00  C 
159.00  C 
160.00  C 
161.00  C 
162.00  C 
163.00  C 
164.00  C 
165.00  C 


FILE  RCRO06 


!  include  file  rcrd06 

common  /rcrd06/acen06 , clas06 ,yard06 , j  typ06 , 

1  atyp06 , cust06 , grp06 , com06 ,mthd06 , 

2  da06 , aa06 , as06 ,  sk06 ,kl06 , ld06 , dadd06 , dawd06 , tunt06 
character  clas06*10, yard06*8 , j  typ06*6 , styp06*6 , cust06*8,grp06*10 
character  tunt06*6 , scen06* 12 ,mthd06*6 

integer*4  dawd06 

integer  da06 ,aa06 ,as06 , sk06 ,kl06 , ld06 , dadd06 ,com06 
integer  alin06<46) 
equivalence  < acen06 ,alin06  ) 
character*43  fld06<4) 

holda  a  tuple  returned  from  the  job  deacription  relation 

variablea  are,  in  order,  acenar io,claaa , yard, jobtype, 
job  aeriea  type, cuatomer, complexity  group , commiasioning  number, 
conatruction  method, design-award  time, 

approp-award.auard-start , start-keel , keel -launch, launch-del i very , 
days  added  to  life  of  ship,  default  award  day  in  year, 
and  time  units  planning  factors  are  in 
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FILE  RCRD08 


C  include  file  rcrd08 

parameter  len08  ■  22 

common  /rcrd08/senam, creatr .racces ,wacces , creat d, lstusd 
character  senam* 12 , creatr *8 .racces *8 , wacces*8 
integer*4  creatd, lstusd 
character  fld08*70 
integer  al in08( len08 > 
equivalence  < alin08, senam  ) 

record  for  communication  with  scenlst  relation 
senam  name  of  scenario 

creatr  creator  of  scenario 

racces  read  permission  ("PUBLIC"  or  creator  name) 
wacces  write  permission  ("PUBLIC"  or  creator) 
creatd  date  created 

lstusd  date  last  used 


-  1 
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FILE  REAOC 


1.00  C 

2.00  C  include  file  readc  stores  last  line  read  by  rdln  for  luarn 

3.00  INTEGER  ILINE 

4.00  COMMON/REAOC/  ILINE 

5.00  C  number  of  line  last  read  from  input  file 

6.00  C  <  for  preproc  ) 

7.00  C 


FILE  RELNAM 


12.00  C 
13.00  C 
14.00 
15.00 
16.00 
17.00  C 
18.00  C 
19.00  C 
20.00  C 
21.00  C 
22.00  C 
23.00  C 
24.00  C 


include  file  relnam 

common  /relnam/  nrels,  rinams(  mxrels ) 
character  rlnams*8 
integer  nrels 

Common  RELation  NAMes  holds  the  names  of  all  relations 
to  be  created  by  the  menu  generation  processor, 
nrels  Number  of  RELationS.  Count  of  relations  created  by 
mnugen . 

rlnams  ReLation  NAMeS.  List  of  names  of  relation  created  by 
mnugen. 
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FILE  RPSUBS 


1.00  C 

2.00  C  include  file  rpsubs:  MNU6 - rnproc  creation  data 

3.00  PARAMETER  MAX SUBS-  100 

4.00  INTEGER  NPROCS 

S.00  CHARACTER  SUBLST *SNAME 

6.00  COMMON/RPSUBS/SUBLST<MAXSUBS),  NPROCS 

7.00  C  nprocs  number  of  special  purpose  processes  that 

8.00  C  have  been  referenced. 

9.00  C  aublst  list  of  all  special  purpose  processes’ 

10.00  C  subroutine  names. 

11.00  C 
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FILE  SCENAR 


C  include  file  acenar  SCENARIO  SYSTEM  OATA 

parameter  ancura*20 

common  /acenar/actaen ,curaen( ancura  ) , dlmaen( ancura  ) , 

1  wrtprv< ancura  ), anuovr 

character*12  actaen, curaen, dlmaen*14 
logical  wrtprv, anwovr 
integer  alinaen 
equivalence  <alinaen,actaen ) 

current  acenano  data  for  application  routinea 
ancura  max  number  of  relate  curaora 
actaen  name  of  current  acenario 
curaen  acenario  key  value  for  relation  i 
delaen  delimited  veraion  of  curaen 
wrtprv  true  if  uaer  may  write  on  the  current  curaor 
anuovr  acenario  write  privelege  override;  allowa 
write  on  curaora  regardleaa  of  acenario 
atatua  if  true;  uaed  by  acenario  creator 
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FILE  SCRCHR 


1.00  C 

2.00  C 

include  file 

SCRCHR 

3 . 00 

PARAMETER 

sprev 

4.00 

1 

slef  t 

S.00 

2 

sadd 

6.00 

3 

shelp 

7.00 

PARAMETER 

scopy 

8.00 

5 

sreloc 

8.10 

6 

stopnu 

8.20 

7 

a jmpto 

8.30 

8 

sreund 

8.40 

9 

anode 

9.00 

PARAMETER 

scrchr 

9.10 

PARAMETER 

nothat 

10.00 

PARAMETER 

jprev 

11.00 

1 

j  left 

12.00 

2 

jadd 

13.00 

3 

jhelp 

14.00 

4 

jcopy 

15.00 

5 

jreloc 

15.10 

6 

jstpmu 

15.20 

7 

j  jnpto 

15.30 

8 

jrewnd 

15.40 

9 

jnode 

16.00  C 

-  screen  characters 

9  —  1 

« 

sfolou  «  ’+' , 

spop 

M 

9  A  1 

» 

aright  ■  *  > ’ , 

srfrsh 

a 

’A’  , 

sdel  -  ’D\ 

snod 

a 

’M*  . 

*?• , 

sinart  *  ’I*t 

sprint 

a 

,p, 

•c* , 

ssuap  ■  'S’, 

snan 

a 

’N’, 

’R\ 

squit  -  ’Q’  , 

sendpg 

a 

’E’  , 

V* , 

suse  -  ’ {  ' , 

sstbld 

a 

i 

sedit  -  ’T'  , 

scl f Id 

a 

’K\ 

’8’ , 

supdat  ■  'U' , 

sver fy 

a 

*u\ 

’L’  , 

sdrau  * 

'  **+''  <>&AOM?IPCSNRQE/{  > 

■TKBUUL' 

*' 

lenscr 

’  VQE* 

,  lenoth  ■  4 

1  , 

jfolow  »  2  , 

jpop 

a 

3  , 

4  , 

jright  ■  5  , 

jrfrsh 

a 

6  , 

7  , 

jdel  ■  8  , 

jnod 

a 

9  , 

10  , 

jinsrt  -  11  , 

jprint 

m 

12  , 

13  , 

jsuap  ■  !4  , 

jnane 

m 

15  , 

IB  , 

jquit  -  17  , 

jendpg 

a 

18  , 

19  . 

juse  -  20  , 

jstbld 

m 

21  , 

22  , 

jedit  •  23  , 

jclf Id 

a 

24  , 

25  , 

jupdat-  26  , 

j ver f y 

a 

27  , 

28  , 

jdraw  •  29 

V  V  T 


B 


i- 
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FILE  SCREEN 


♦ 

* 

* 

# 

♦ 

♦ 

* 

* 

♦ 

♦ 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


file  senprm 


C  include  file  senprm 

parameter  snmxrl»200 
parameter  snrsun-24, 
parameter  snread-ZS, 


snmxgp-20, 
snunit»25 
snwr it»27 


snmxgr*50 


scenario  system  parameters 
snmxrl  maximum  relation  m  ALIAS  system 
snmxgp  maximum  number  of  related  groups  of  relations 

snmxgr  maximum  number  of  relations  in  a  group 

snrsun  unit  number  for  relsnl  file 

snunit  unit  used  by  snok 

snread 
snurit 


1 


K 

1.00 

C 

0 

2.00 

C 

include  file 

screen  MNUR - screen  si2e  definition 

M 

i 

3.00 

PARAMETER 

WSCREN  -  80 

L 

4.00 

PARAMETER 

LSCREN  -  24 

. 

S.00 

C 

wscren 

wide  of  terminal  screen  is  characters 

\  ' 

6.00 

C 

lscren 

length  of  terminal  screen  in  lines 

l 

7.00 

C 

r; 
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FILE  SHLIFE 

1.00  C 

2.00  C  include  file  shlife  FLRP/FLBG  ship  life  data 

3.00  C  contains  standard  lifetimes  for  all  ship  classes 
4.00  PARAMETER  SLIFNM- ’ -SHLIFE . MISCJ- ’ 

S.00  PARAMETER  SLIFFL* ’ -SCENARIO , CLASS , LIFE , TIMUNT , DATADATE- ’ 

6 . 00  PARAMETER  SLIFK Y- ’ -SCENARIO , CLASS , DATADATE : D , ENTRY  DATE : D- ’ 

7.00  COMMON  /SHLIFE/  slcurs 

8.00  character*12  sfscen 

8.10  character*10  sfclas , sfunt*B 

9.00  integer  s lcurs , a f 1 i f e , s f al in< 17  ) 

10.00  integer*4  sfdatd 

11.00  equivalence  (sfalin<  1), sfscen)  ,  (sfalin<  7>, sfclas) 

12.00  equivalence  < sf al in( 12 > , sf 1 1 f e >  ,  < sfaiin( 13  ) , sfunt  ) 

12.10  equivalence  (  sfalin< 16 >, sfdatd > 

13.00  C 

14.00  character*12  skscen 

14.10  character*10  skclas 

15.00  integer  skalin(l5) 

18.00  mteger*4  skdatd, skdate 

17.00  equivalence  <skalin(  1), skscen)  ,  (skalin(  7), skclas) 

18.00  equivalence  < skalinl 12 ), skdatd ),(  skal in(  14 ), skdate ) 


19.00  C 

20.00  C 

—  data 

record  for  SHLIFE  (SHip  class  LIFEtime  in  DAYS/ 

21.00  C 

22.00  C 

slcurs 

relate  virtual  cursor 

23.00  C 

s_scen 

a  scenrio  id 

24.00  C 

s_clas 

a  ship  class  id 

25.00  C 

st 1 i f e 

ship  class's  standard  life  in  years 

26.00  C 

s_datd 

date  this  info  was  entered  into  relate 

27.00  C 
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FILE  SNRREF 


include  file  snrref 

parameter  lensnrref  -  18/2  *  snmxrl  +  12/2  *  snmxrl  +  1 
parameter  lensnrref  ■  3001 

common  /snrref /snds id , nset s , relset < snmxgp  ),nsreln 
1  , snrlnml snmxrl  ), snrlsn< snmxrl  ) 

integer  sndsid.nsreln.nsets 
character*l8  snrlnm,snrlsn*12,relset*8 


nsets 

relset 

nsreln 

snrlnm 

snrlsn 


scenario  system  choice/creation  data 


number  of  system  relation  families 

id  of  system  relation  families 

number  of  relations  known  to  scenario  system 

names  of  relations  known  to  scenario  system 

scenario  field  key  value  for  relation  i  for  current 

scenario 


FILE  STACK 


1.00 

2.00 

3.00 

4.00 

5.00 

6.00 

7.00 

8.00 

9.00 

10.00 


include  file  stack  stack  data  type  storage 

PARAMETER  lstack“128 

COMMON  /stack/  stkflg,  stkidx,  stack ( lstack > 

INTEGERS  stkidx 
INTEGER*4  stack 
LOGICAL  stkflg 

stkidx  -  index  to  top  of  the...  stack  -  stack  contents 
stkflg  -  can  be  used  to  mean  pop  to  top  menu,  when  set 
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FILE  STRNSS 


1.00  C 

2.00  C  include  file  strngs  DBIF  string  chain  data  storage 

3.00  PARAMETER  mschn“5 , mstr*3 ,  msustr“500 , mcstr“1000 

4.00  COMMON  /strngs/  strchn( mschn  ) , intstr( mswstr ,mstr > 

5.00  INTEGER  strchn , int str 

S.00  CHARACTER  str< mcstr , mstr  ) 

7.00  EQUIVALENCE  (intstr.str) 

8.00  C  strchn*string  chain  str  “string  pool 

9.00  C  allows  convenient  buffering  of  command  strings  and 

10.00  C  delimited  text  strings  (QTS) 

11.00  C 
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FILE  TDDATE 


1.00  C 

2.00  C  Include  File  TDDATE 

3.00  C  Defines  the  DATA  TYPE  “ODATE",  meaning  DatabaseDATE ;  it  refers 

4.00  C  to  the  integer*4  format  in  which  RELATE  returns  date  specs. 

5.00  C 

6.00  C  REPRESENTATION:  INTEGER*4-  Bits  2-13  (Ll-12)  are  YEAR  (le.  1983) 

7.00  C  -  Bits  17-20  <  R0-  3)  are  MONTH  (le.  1) 

8.00  C  -  Bits  21-25  ( R4-  8)  are  DAY  (ie.  30) 

9.00  C  SUBTYPES: 

10.00  C  Raw  RELATE  ODATE:  a  date  obtained  directly  from  RELATE  tuple. 

11.00  C  Clarified  OOATE:  one  whose  unused  bits  are  guaranteed  zero. 

12.00  C 

13.00  C  OPERATIONS: 

14.00  C  CDT0DD( date_string*10  "MM/DD/CCCC" >  Returns( Clari f ied  DDATE  ) 

15.00  C  CKDATE( date_string*10 , len_of_string )Returns( Boolean : T  if  y;  nd 

15.10  C  CKDATK inl*2 :  mm,dd,yy)  Returhs( Boolean:  T  if  valid) 

16.00  C  DATEP1 < xn/out 1*2 :  mm,dd,yy)  —  increments  date  by  one  day 

17.00  C  DDATE  <dummy*2)  Returns( Today ’ s  date  as  Clarified  DDATE) 

18.00  C  DCLRFY(Raw  DDATE)  Returns < Corresponding  Clarified  DDATE) 

19.00  C  DDTOCD(Any  DDATE)  Returns< date_str mg* 10  "MM/DD/CCCC"  ) 

20.00  C  0DTQID(in:  Any  ODATE,  outI*2=  month,  outI*2  day,  outI*2  year) 

21.00  C  IDAYS  <inl*2=  mml,ddl,yyl,  inl*2:  mm2 , dd2 , yy2  )Returns( 1*2 =  2-1) 

22.00  C  JDAYS  <inl*2:  mml,ddl,yyl,  inl*2:  mm2 , dd2 , yy2  )Returns( 1*4 =  2-1) 

23.00  C  IDTODDCout:  Clarified  ODATE,  Rest  are  inl*2=  month, day, year  ) 

23.10  C  LM0NTH( inl*2 :  mm,yy)  Returns(I*2  number  of  days  in  that  month) 

24.00  C  NUM0AY( inl*2:  mm,dd,yy)  Returns<I*2:  lMSunday .  .  .  7**Saturday  ) 

25.00  C  NWDATE(in:  Any  ODATE,  inl*2=  ndays  )  Returns( DDATE+ndays  ) 

25.10  C  NWDATU* in:  Any  DDATE,  inl*2:  npers,  inC*:  per_type )Returns( DDATE ) 

26.00  C  NWIDAT* ini *2 ;  mm,dd,yy,  inl*2:  ndays,  outI*2:  C mm , dd , yy l+ndays > 

27.00  C  *****  01,  02,  and  Dcomp  below  must  all  be  clarified  DDATEs  ***** 
28.00  C  *  DCL0SR( D1 ,02 , Dcomp  )  Returns(BooIean;  T  if  D1  is  strictly  * 

29.00  C  *  closer  to  Dcomp  than  02:  ie.  iDl-Dcomp!  <  !D2-0comp!  )  * 

30.00  C  *  OEARLR* D1 ,02  )  Returns* Boolean:  T  if  D1  is  earlier  than  D2  )  * 

31.00  C  *  OLATER* 01 ,02  )  Returns* Boolean:  T  if  D1  is  later  than  D2  )  * 

32.00  C  *  DE0UAL* D1 ,02 )  Returns* Boolean:  T  if  01  and  02  are  the  same)  * 

33.00  C  . . . * . . 

34.00  C 

35.00  C  HI00EN  OPERATIONS 

36.00  C  0ATEMK* inl*4 :  mark,  outI*2:  mm,dd,yy)  —  distance  mark  to  date 

37.00  C  MRKDAY* inl*2 :  mm,dd,yy)  Returns(I*4  distance  mark  from  date) 

38.00  C 

39.00  C  DECLARATIONS: 

40.00  EXTERNAL  ckdate , ddt ocd , cdtodd , ddate  , dc lr f y , dctoid , ldtodd 


ALIAS  FORTRAN  INCLUDE  FILES 


41.00 

42.00 

43.00 

44.00 

45.00 

46.00 

47.00  C 

48.00  C 

49.00 

50.00 

51.00 

52.00 

53.00 

54.00 

55.00  C 


EXTERNAL  idays  .jdays  .datepl .nwdate.nwidat .nuidatu, Imonth 
CHARACTER  ddtocd*10 

INTEGERS  cdtodd, ddate  ,dclrfy, jdays  .nuidate,  nuidatu,  mrkday 

INTEGER*4  ddzqzl , ddzqz2 , ddzqzc 

INTEGER  idays,  Imonth, numday 

LOGICAL  ckdate,dcloar, dearlr , dl a ter, dequal 

STATEMENT  FUNCTIONS: 

dclosr< ddzqzl , ddzqz2 , ddzqzc )  = 

1  jabs( ddzq2l-dd2q2c  )  .LT . jabs( dd2qz2-dd2qzc  ) 

dear- lr(  ddzqzl , ddzqzZ  )  »  ddzqzl .LT. ddzqz2 

dequal ( ddzqzl ,ddzqz2  )  -  ddzqzl .EQ . ddzqz2 

dlater< dd2qzl ,ddzqz2  )  *  ddzqzl .GT. dd2qz2 

numday  <  kmn , kdy , kyr  )  -  i  j  int  <  jmod(  mrkday  (  kmn ,  kdy ,  kyr- ),  7J  )  )  +  l 
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ALIAS  FORTRAN  INCLUDE  FILES 


FILE  TODAYC 


1.00  C 

2.00  C  include  file  todayc  FLRP/B6RP  data 

3.00  INTE6ER*4  TOOAY ,  LASTDAY 

4.00  COMMON  /TODAYC/  TODAY,  LASTDAY 

5.00  C  —  today's  clarified  date 

G.00  C  —  maximum  clarified  date 

7.00  C 


FILE  TRNS03 


730.00  C 
731.00  C 
732.00  C 
733.00 
734 . 00 
735.00 
736 . 00 
737.00  C 
738.00  C 
738.10  C 
738.20  C 
738.30  C 
739.00  C 
740.00  C 
741.00  C 
742.00  C 
743.00  C 
744.00  C 
745.00  C 


include  file  trns03 

common  /trns03/cf tnam.cf tdsc,cf tusd.cf tctr ,cf tctd,cf tsmu 
character*8  cftnam,cftctr,cftsmu 
character*42  cftdsc 
real  cftctd.cftusd 

data  record  used  to  store  directory  info  about  the 
command  file  currently  being  built  for  inclusion  in 
the  CFLIST  relation  on  successful  build  termination. 

Twins  most  of  rcrd03.  NOT  ALIGNED.  00  NOT  USE  AS  RELATE  RECORD. 

cftnam  command  file  name 

cftdsc  command  file  description 

cftusd  command  file  last-used  date 

cftctr  command  file  creator 

cftctd  command  file  creation  date 

cftsmu  command  file  start-execution  menu 


ALIAS  FORTRAN  INCLUOE  FILES 


FILE  TTY 


94.00  C 

95.00  C  include  file  /tty/  alternative  screen  clear  method  storage 

96.00  COMMON  /tty/  typtty , f ormfd 

97.00  CHARACTER*6  typtty 

98.00  INTEGER  f ormfd 

99.00  C 


FILE  TXTCNT 


1.00  C 

2.00  C  include  file  txtcnt  =  MNU6 - text  size  tracking 

3.00  INTEGER*4  NHLPLN,  NOSCLN 

4.00  COMMON  /TXTCNT/  NHLPLN,  NOSCLN 

5.00  C 


■  n 


V' 


Ik 


ALIAS  FORTRAN  INCLUDE  FILES 


FILE  TYPEB6 


1.00  C 
2.00  C 
3.00 
4.00 
S.00 
6.00  C 
7.00  C 
8.00  C 
9.00  C 
20.00  C 


include  file  typebg  FLBG - type  definition  data 

INTEGER  NTYPE , TYPTOT ( MXPERD , MXTYPE  ) 

CHARACTER  TYPLAB*LENRLB< MXTYPE > ,  TYPNAM*CNLEN< MXTYPE > 

COMMON  /TYPEB6/NTYPE , TYPTOT , TYPLAB , TYPNAM 
ntype  number  of  types  defined 

typtot  force  level  totals  for  each  period,  each  type 
typlab  label  to  be  displayed  under  BALANCE  section  for  type 
typnam  name  which  type  is  cross  referenced  by 


V. 


« 


« 


5: 


i*' 

p: 

' .  ^  • .  . 
j»  *  v  ” 1  *  -  ■ 
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ALIAS  FORTRAN  INCLUOE  FILES 


FILE  UNTREF 


1.00 

c 

2.00 

c 

include  file  untref 

3.00 

common  /untref /unums( 

4.00 

integer  unums 

5.00 

logical  uinuse 

6.00 

c 

unums  holds  mpe 

7.00 

c 

uinuse  true  if 

FILQPN/FILCLS  utility  storage 
99  )  ,uinuse( 99  ) 


file  numbers  for  each  logical  unit 
a  file  has  been  iopeed 


FILE  UZRPRV 


» 

* 

# 

# 

* 

♦ 

* 

♦ 

* 

* 

» 

* 

# 

# 

♦ 

# 

# 


C 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


include  file  uzrprv 

parameter  lenuzr-61 ,dbalev-3,maxsec»50 

common  / uzrprv/ uzrnam , uzrQrp , uzrlev ,rdprm , wrtprm , modprm( max  sec  ) 
common  /uzrprv2/readok , wr itok 
character*8  uzrnam, uzrgrp 
integer  uzrlev 

logical  rdprm,wrtprm,modprm,readok , writ  ok 

- point  alignment 

integer  al in07( lenuzr  ) 
character*40  fld07<6> 
equivalence  < aiin07, uzrnam > 

- module  permission  equivs 

logical  runmnu , crscen 
equivalence  ( crscen, modprm( 12  ) ) 


holds 

uzrnam 

uzrgrp 

uzrlev 

rdprm 

wrtprm 

modprm 

readok. 

writok 


user  privelege  info  extracted  from  sysusr.pub 
name  of  this  user 

group  user  may  execute  from  (usually  home  or  "ANY") 

user  privelege  summary  level ; l*read ; 2*reg ; 3*dba ; a-super 

true  if  user  may  read  data  base 

true  if  user  may  write  to  data  base 

(i)  is  true  if  user  may  execute  module  <i> 

true  if  user  may  read  this  scenario 

true  if  user  may  alter  this  scenario 
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Table  10-8.  ALIAS  Extra  Data  Segment  Usage 


SEGMENT 

USER 

PURPOSE 

636 

BUILDER 

ID  of  segment  which  is  used  for  communication 
with  the  default  RELATE  son  process. 

9012 

DBU 

Segment  used  for  storage  of  cursors  associate< 
with  the  various  RELATE  son  processes  which 
the  DBU  starts  up;  i.e.  DBU  file  management 
subsystem's  global  storage. 

1 

Core 

Segment  used  by  mrunp/iniprc  FORTRAN  routines 
to  swap  contents  of  Core  common  blocks  into 
son  process  data  memory.  Used  only  as  a 
communication  segment. 

101 

102 

103 

104 

DBU 

Segments  used  for  communcation  ~ „■  tween  the 

DBU  and  the  various  RELATE  son  processes 
the  DBU  starts  up  using  its  file  management 
subsy stem. 

2 

SCEN 

Segment  used  by  the  scenario  system  to  store 
the  SCENARIO  field  key  values  for  each 
relation  for  the  current  scenario. 

8001 

FLRP 

BGRP 

Temporary  storage  buffer  used  by  the  Force/ 
Battle  Group  Report  Generators'  internal  page 
printing  system. 

191 

ASGN 

Temporary  storage  for  partially  processed 
tuples  during  the  update  phase  of  execution. 

201 

202 

DBIF 

Seguents  used  for  RELATE  son  processes 
supervised  by  the  DBIF. 

It  is  crucial  that  modules  using  extra  data  segments, 

either  explicitly  or  implicitly  via  the _ MEM  FORTRAN  utilities, 

not  compete  with  one  another  for  the  same  segment  by  specifying 
identical  segment  id  numbers  in  the  call  to  the  getdseg 
intrinsic.  Errors  which  are  very  difficult  to  trace  can  result 


from  one  module  writing  over  another  module's  segment. 

Table  10-9  presents  a  list  of  the  current  usage  of  segment 
id  numbers. 


-i 


Table  10-9.  ALIAS  LPRNTS  Usage 


LPRNT  MODULE  PURPOSE 


1  LIST  MEMORY  INLST  and  OUTLST  routine  diagnostics 

2  HRELATE  High  level  RELATE  utility  diagnostics 

3  LRELATE  Low  level  RELATE  utility  diagnostics 

4  MENU  SYSTEM  Input  checking  for  MNUGEN 

5  DATA  ENTRY  Turns  on  file  echo; uses  DMTEST  version 

6  DATA  ENTRY  Inhibits  record  adds 

7  ASSIGNER  All  Manual  assigner  system  diagnostics 

8  UTILITIES  filopn 

10  ASSIGNER  Outbound  high-level  diagnostics;  yard-oriented 

10  ASSIGNER  routines  asycls ;ascmpg;asndbr ;asnoui 

11  ASSIGNER  Outbound  j ob-of- inter est  diagnostic;  asnjoi 

12  ASSIGNER  Removal  of  hist/curr  jobs  from  buffer  before 

out 

12  ASSIGNER  outbound  processing.  Routine  asncln. 

13  ASSIGNER  Echoes  relate  procedure  file  to  screen  which 

upd 

13  ASSIGNER  updates  hull  numbers  in  ncjodat.proj  j .  asnhul 

14  ASSIGNER  High  level  class-oriented  processing  outbound. 

14  ASSIGNER  Routines  asgnxt  ashtrb  ashard  astupf 

15  ASSIGNER  Low  level  print  for  ashtrb;  cnvt  buf  tc  rcrd 

16  ASSIGNER  Low  level  outbound  hardwire  chex;  ashard 

17  ASSIGNER  Low  level  for  astupf;  produces  tuple  images. 

18  ASSIGNER  Outbound  actual  DB  update,  asndbr  asodel 

19  ASSIGNER  Outbound  job  description  retrieval,  aspfld 

asgpf 

20  ASSIGNER  Outbound  schedule  date  calculators,  ascdsp 

ascda 

22  ASSIGNER 

23  ASSIGNER  Aspred:  outbound  date  spreading 

25  SCENARIO  All  scenario  system  debug  prints 

26  UTILITY  Extra  data  segment  system  (xxxMEM) 
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11.1  PURPOSE 

Hie  force  impact  assessment  module  projects  future  Navy 
force  levels  in  teems  of  both  raw  numbers  of  deployable  ships  and 
deployable  battle  groups.  It  can  also  be  used  to  report  on  past 
force  levels  if  that  is  desired.  The  module  is  designed  to 
permit  report  contents  and  formats  to  be  customized  to  a  high 
degree. 


Sample  reports  of  each  type  are  shown  in  Figures  11-1  and 

11-2. 

11.2  SUMMARY  OF  STRUCTURE 

The  module  is  centered  around  two  independently  executable 
programs,  each  producing  one  of  the  two  types  of  report.  The 
programs  are  executed  as  son  processes  when  options  2  and  3  of 
the  Force  Level  Report  Generator  choice  menu  of  the  ALIAS  Command 
System  are  chosen. 

The  programs  are  quite  similar  in  internal  structure  and 
operation.  Each  reads  a  user-specified  ASCII  file,  called  a 
format  control  file,  which  specifies  the  contents  and  format  of 
the  report  desired.  Report  contents  are  specified  in  terms  of  a 
list  of  ship  classes  for  which  force  levels  are  desired  (the 
classes  may  be  combined  into  summary  groups,  referred  to  here  as 
ship  "types”).  After  obtaining  the  class  list,  each  program 
searches  the  data  base  for  commissionings  and  decommissionings  of 
ships  in  the  classes  (as  defined  by  construction,  conversion,  and 
reactivation  jobs  and  decommissioning  dates),  for  repair  jobs 
which  temporarily  take  ships  out  of  the  force,  and  for  a  standard 
service  lifetime  for  each  class.  The  report  is  then  constructed 
and  written  to  the  device  the  user  specifies  on  the  User 
Environment  Parameter  menu  and,  optionally,  to  a  disk  file. 
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Figure  11—1 .  Staple  Force  Level  Report  Generator  Output 


POM  86  FORCE  IMPACT  PROJECTION 
BASED  ON  STANDARD  SERVICE  LIVES 
(ALL  DATA  NOTIONAL) 


CALENDAR 

TEAR 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

CV 

INVENTORY 

8 

8 

8 

8 

8 

8 

7 

7 

8 

7 

7 

8 

8 

8 

CVN 

INVENTORY 

5 

5 

5 

6 

6 

7 

7 

8 

8 

8 

8 

8 

8 

8 

CVN 

PROGRAM 

1 

1 

1 

1 

1 

rawBTCT 

DEPLOYABLE 

13 

13 

13 

14 

14 

15 

14 

15 

16 

16 

16 

17 

17 

17 

CV 

IN  SLEP 

1 

1 

CARRIER 

TOTAL 

14 

14 

13 

14 

14 

15 

14 

15 

16 

16 

16 

17 

17 

17 

BB 

PROGRAM 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

BB 

TOTAL 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

CGH 

INVENTORY 

9 

9 

9 

9 

9 

8 

7 

7 

7 

7 

7 

6 

6 

6 

CG 

INVENTORY 

23 

27 

31 

34 

38 

38 

37 

31 

28 

26 

24 

20 

20 

20 

CG 

PROGRAM 

2 

5 

9 

9 

9 

9 

9 

9 

9 

CRUISER 

TOTAL 

32 

36 

40 

43 

47 

48 

49 

47 

44 

42 

40 

35 

35 

35 

DDG 

INVENTORY 

37 

37 

37 

38 

38 

38 

38 

38 

38 

38 

38 

38 

38 

38 

DDG 

PROGRAM 

4 

8 

14 

19 

24 

25 

25 

25 

25 

DDG 

TOTAL 

37 

37 

37 

38 

38 

42 

46 

52 

57 

62 

63 

63 

63 

63 

DD 

INVENTORY 

32 

32 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

DD 

TOTAL 

32 

32 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

FFG 

INVENTORY 

56 

56 

57 

57 

57 

57 

57 

57 

57 

57 

56 

52 

51 

51 

FFG 

TOTAL 

56 

56 

57 

57 

57 

57 

57 

57 

57 

56 

52 

51 

51 

FF 

INVENTORY 

57 

57 

57 

57 

57 

57 

55 

54 

50 

49 

48 

44 

39 

FF 

TOTAL 

57 

57 

57 

57 

57 

57 

57 

55 

54 

50 

49 

48 

44 

39 

FRIGATE 

TOTAL 

113 

113 

114 

114 

114 

114 

114 

112 

111 

107 

105 

100 

95 

90 

GRAND 

TOTAL 

228 

232 

236 

241 

245 

251 

255 

258 

260 

259 

256 

247 

242 

237 

A.:, 


a. a  A.. 
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SYSTEM 


Figure  11-3.  Structure  of  Force  Analysis  Modules 


Since  the  actual  numbers  on  the  reports  depend  only  on  the 
contents  o£  the  data  base,  and  particularly  on  schedules,  force 
impact  reports  will  always  reflect  the  latest  data  available  for 
a  scenario. 

The  programs'  only  direct  interaction  with  the  user  is  the 
prompt  for  the  name  of  the  input  format  control  file;  all  other 
control  values,  such  as  the  dates  specifying  the  period  for  which 
the  report  is  desired,  are  taken  from  the  settings  of  the  Command 
System's  Force  Level  Parameters  Menu. 

Although  FLRP  and  BGRP  are  completely  separate  in  terms  of 
executability,  they  do  share  a  good  deal  of  source  code,  particu¬ 
larly  the  data  base  search  logic. 

This  structure  is  summarized  in  Figure  11-3. 

11.3  INPUTS  AND  OUTPUTS 

This  section  will  describe  FLRP  and  BGRP  inputs  and  outputs 
in  more  detail.  They  will  be  discussed  here  as  though  they  were 
a  single  program,  since  the  structure  of  their  inputs  and  outputs 
is  identical. 

The  sole  outputs  of  the  module  (with  the  exception  of 
prompts  and  error  messages)  are  the  reports  themselves,  in  the 
general  form  shown  in  Figures  11-1  and  11-2.  These  reports  are 
always  written  to  the  user's  default  hard  copy  output  device  (the 
one  specified  on  the  User  Environment  Parameters  menu)  ,  and  may 
also  be  saved  in  a  disk  file  for  editing  by  the  user  and 
subsequent  re-printing. 

Six  types  of  input  are  required.  In  order  of  first  use  by 
the  module,  these  are  the  System  Core  process  data  swap  with  its 
parameter  menu  contents,  the  name  of  the  format  control  file  from 
the  user,  the  contents  of  the  Out  of  Force  Repair  Jobs  List  Menu 
associated  with  the  Force  Level  Parameters  Menu  in  the  Command 
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System,  the  contents  of  the  format  control  file,  scenario  key 
field  values  for  various  relations  as  supplied  by  the  scenario 
system,  and  the  contents  of  various  data  base  relations  for  the 
user's  current  scenario. 


11.3.1 


As  described  in  Section  8,  the  System  Core  will  swap  out 
the  contents  of  many  of  its  key  global  arrays  into  an  extra  data 
segment  just  before  activating  a  son- process  module,  if  the 
developer  desires.  The  data  may  then  be  read  into  identical 
global  arrays  in  the  son  by  a  call  to  the  iniprc  utility* 


FLRP  and  BGRP  make  use  of  this  facility  to  obtain  the 
current  values  of  the  variables  appearing  on  the  Force  Level  Par¬ 
ameter  Menu  in  the  Command  System.  These  variables  hold  many  of 
the  control  values  for  FLRP/ BGRP  program  execution.  In  order  to 
minimize  the  number  of  routines  in  which  the  /pvalue/  array  must 
be  included,  the  values  are  moved  by  the  flinit  routine  into  a 
common  block  called  /flvalu/  which  is  used  only  by  FLBG/FLRP. 


A  sample  of  the  parameter  menu  is  shown  in  Figure  11-4.  In 
the  order  in  which  they  appear,  the  use  of  the  parameters  is: 

1)  KEEP  REPORT:  If  set  to  YES,  the  output  of  FLRP/ BGRP 
will  be  saved  in  a  file  in  the  log-on  group  called 
flrept.  If  flrept  already  exists  at  module  run  time, 
the  user  is  prompted  for  an  alternative  name. 

2)  REPORT  START:  The  first  day  of  the  first  period  the 
user  is  interested  in.  Ships  reaching  final  retirement 
before  this  date  will  never  appear  on  a  report 
regardless  of  the  contents  of  the  format  control  file. 

If  the  user  specifies  a  date  that  is  not  the  first  day 
of  its  period,  the  date  is  moved  back  to  the  first  day. 

3)  REPORT  END:  The  last  day  of  the  last  period  the  user  is 
interested  in.  Determines  the  number  of  periods  in 
conjunction  with  REPORT  START. 

4)  RETIRE  SHIPS  BY:  If  DATE,  the  data  base  search  logic 
will  look  for  specific  retirement  dates  for  each  ship  in 
the  deact.miscj  relation  for  those  ships  not  already 
retired  as  of  the  day  the  report  is  being  run.  If  it 
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Figure  11-4.  Command  System  Parameter  and  List  Menus 

Serving  the  Force  Module 


Menu  is  FLREPT 


*  ALIAS  COMMAND  SYSTEM  *  Scenario  is  DEMO 


FORCE  LEVEL  AND  BATTLES  ROUP  REPORT  GENERATOR  PARAMETERS 

1. 

KEEP  REPORT  ON-LINE 

m 

YES 

(YES, NO) 

2. 

REPORT  START  DATE 

m 

1/  1/1986 

( MM/DD/YYYY ) 

B 

3. 

REPORT  END  DATE 

u 

12/31/2005 

(MM/DD/YYYY ) 

4. 

RETIRE  SHIPS  BY 

m 

LIFE 

(LIFE, DATE) 

r 

5. 

TIME  PERIOD  LENGTH 

M 

CALYR 

(DAY, WEEK,  MONTH, QTR,  CALYR) 

i, 

6. 

IN  FORCE  DAY 

m 

END 

(BEGIN,  END) 

^  • 

7. 

PROGRAM  MILESTONE 

m 

APPROP 

(APPROP,  AWD,  DEL IV) 

*». 

s. 

8. 

OUT  OF  FORCE  REPAIR 

JOBS  « 

LIST 

(ALL/ LIST) 

r 

l 

COMMAND: 

f 

f 

i- 

Menu 

is  FLREPT 

*  ALIAS  COMMAND 

SYSTEM  *  Scenario  is  DEMO 

REPAIR  JOBS  THAT  REMOVE  A  SHIP  FROM  FORCE  DURING  EXECUTION 


REFUEL 

REPAIR 


.  *  SLEP 
.  TESTRE 


COMMAND 


cannot  find  a  date  specification  there,  the  standard 
service  life  for  the  class,  in  combination  with  the 
amount  of  service  the  ship  has  seen  (not  including 
periods  of  deactivation) ,  will  be  used  to  determine  the 
final  retirement  date.  If  LIFE,  then  the  standard 
service  life  will  be  used  for  all  ships  not  retired  by 
the  day  the  report  is  run. 

5)  TIME  PERIOD  LENGTH:  The  time  units  the  period  of 
interest  should  be  measured  in.  A  variety  of  choices  is 
available,  but  no  report  may  span  more  than  20  periods. 

6)  IN  FORCE  DAY:  There  must  be  a  rule  to  determine  whether 
ships  retiring  in  the  middle  of  a  period  are  in  the 
force  for  that  period  or  not.  If  this  parameter  is  END 
then  they  are  not;  if  BEGIN  then  they  are. 

7)  PROGRAM  MILESTONE:  In  the  format  control  file  the  user 
may  specify  that  the  force  availability  for  ships  of 
each  type  be  separated  into  multiple  lines,  or 
"programs",  based  on  a  milestone  in  each  ship's 
construction  process.  The  purpose  of  this  is  to  let  the 
user  see,  for  example,  the  relative  impact  of  ships 
already  built  compared  to  ships  in  the  POM  compared  to 
those  in  the  EPA.  The  user  will  specify  start  dates  for 
each  era  or  program  in  the  control  file;  those  dates 
will  be  compared  to  the  constr  uction/conversion/- 
reactivation  milestone  date  for  each  ship  specified 
here.  Thus  if  APPROP  is  chosen,  ships  appropriated 
after  the  first  day  of  the  POM  era  will  be  placed  in  POM 
lines  on  the  report. 

8)  OUT  OF  FORCE  REPAIR  JOBS:  This  is  a  gate  to  a  list  menu 
whose  role  is  discussed  in  Section  11.3.3. 


Since  format  control  files  are  just  standard  editor  files 
containing  a  particular  syntax,  a  large  number  and  variety  of 
them  can  exist.  For  this  reason  the  user  is  prompted  for  the 
name  of  the  file  he  wishes  to  use,  rather  than  limiting  the 
choice  to  a  small  selection  of  values  on  the  parameter  menu. 
Most  public  format  control  files  are  maintained  in  the  .fmtfil 
group. 


n.3.3 

A  sample  of  this  list  menu  is  shown  with  the  parameter  menu 
in  Figure  11-4.  In  this  menu  the  user  specifies  which  kinds  of 
repair  job  will  cause  a  ship  to  be  temporarily  out  of  the  force 


level  for  purposes  of  a  force  impact  study.  The  contents  of  the 
candidates  list  on  this  menu  is  managed  by  the  RELJOB__ TYPES 
screen  of  the  DBU,  so  the  user  can  cause  any  or  all  of  the  legal 
repair  job  type  code  names  to  appear  on  the  list.  He  can  turn 
any,  all,  or  none  of  them  on  (only  SLEP  is  on  in  the  sample)  .  If 
none  are  on  then  no  temporary  removals  will  be  effected. 

The  out-of-force- repai r- job  concept  was  implemented  to  deal 
with  SLEP  jobs  in  particular;  it  has  been  common  to  consider  a 
carrier  in  SLEP  as  not  in  the  force  level  in  force  impact  studies 
in  the  past. 

11.3.4  The  Fo rm a  t_  Control _ -Fils 

Sample  Force  Level  and  Battle  Group  Report  format  control 
files  are  shown  in  Figures  11-5  and  11-6.  Syntax  rules  for  the 
files  are  discussed  in  the  ALIAS  User 1  s  Guide,  and  will  be 
discussed  here  only  as  appropriate. 

Both  files  are  keyword-oriented;  that  is,  the  logic  which 
reads  them  identifies  the  type  of  data  appearing  on  a  given  line, 
and  the  actions  to  take  on  that  data,  according  to  keyword  com¬ 
mands  which  appear  as  the  first  word  on  the  line.  Where  a  line 
must  be  longer  than  72  characters  (the  maximum  width  allowed) 
then  continuation  lines  beginning  with  a  "+"  may  follow  it. 

In  both  files  the  TITLE  keyword  must  appear  before  other 
keywords;  the  same  applies  to  PRGLB  in  the  Force  Level  file. 

Note  that  although  the  Force  Level  format  control  file  is 
larger,  the  Battle  Group  file  has  a  larger  variety  of  keywords 
and  is  more  complex.  Here  key  word  lines  must  appear  in  groups 
and  strictly  in  the  order  TYPE,  FUNCTION,  BGROUP,  MAKEUP.  The 
user  specifies  the  TYPES  of  ships  available  in  terms  of  classes; 
then  the  FUNCTIONS  each  type  can  perform;  then  the  battle  groups 
desired  and  the  target  number  and  priority  for  each  (note  that  a 
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Figure  11-5.  Sample  Force  Level  Report  Format  Control  File 


%  1HIS  IS  A  FORCE  LEVEL  REPORT  FORMAT  CONTROL  FILE 

%  ANY  LINE  BEGINNING  WITH  %  IS  CONSIDERED  A  NOTE  AND  IGNORED 

% 

%  The  next  two  lines  tell  FLRP  to  split  the  force  level 

%  into  two  lines  for  each  class,  based  on  ship  approp  date 

PRGLB  Inventory  ,1/1/1900 

PRGI£  Program  ,10/1/1986 

% 

%  The  TITLE  lines  give  the  title  that  will  be  printed 

%  (centered)  on  the  top  of  each  report  page 

TITLE  POM  86  Force  Impact  Projection 

TITLE  Based  on  Standard  Service  Lives 

TITLE  (All  Data  Notional) 

% 

%  Start  the  report  specification.  BTOT  lines  tell  FLRP  to 

%  start  keeping  a  running  total,  ETOT  where  in  the  body 

%  to  print  the  total;  last  two  words  on  ETOT  lines  are 

%  the  left  and  right  labels  actually  printed.  Label 

%  on  BTOT  line  and  first  one  on  ETOT  for  internal  FLRP  use. 

%  EITOT  is  like  ETOT  except  specifically  designed  for 
%  subtotals;  it  ensures  no  page  feed  happens  in  the 
%  middle  of  a  type  being  printed. 

%  TYPE  lines  specify  ship  types  by 

%  giving  the  names  of  all  the  classes  in  the  type. 

START 

BTOT  grand 
BTOT  subn 

TYPE  SSBN,  SSBN-726,SSBN-640,SSBN-627,SSBN-616, 

+  SSBN-611 ,  SSBN-610,  SSBN-609,  SSBN-601,  SSBN-599  , 

+  SSBN-598 

ETOT  subn,  SSBN,  TOTAL 
BTOT  sub 

TYPE  SSN,  SSN-688,SSNX, SSN-21 , SSN-575, SSN-578 ,SSN-585  , SSN-594 , 

+  SSN-597 , SSN-637 , SSN- 671, SSN-6  85 

ETOT  sub  , SSN, TOTAL 
% 

%  note  job  line  causes  carriers  in  SLEP  to  be  printed 
%  they  do  not  appear  in  the  deployable  total 
BTOT  carrier 
BTOT  dcarrier 

TYPE  CV,  CV-  41 ,  CV-  5  9 ,  CV- 6 3  ,  CV- 6 7 

TYPE  CVN,  CVN-65,  CVN-68 

EITOT  dcarrier, CARRIER, DEPLOYABLE 

JOB  CV,  IN  SLEP,  SLEP,  CV-41,  CV-59,  CV-63,  CV-67 

ETOT  carrier,  CARRIER,  TOTAL 
% 

BTOT  bb 

TYPE  BB,  BB-61 

ETOT  bb,  BB,  TOTAL 
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Figure  11-5.  Sample  Force  Level  Report  Format  Control  File 


% 

BTOT  cruisers 
TYPE  OGN, 

TYPE  CG, 

ETOT  cruisers, 
% 

BTOT  ddg 
TYPE  DDG, 

ETOT  ddg, 

% 

BTOT  dd 
TYPE  DD, 

ETOT  dd, 

% 

BTOT  frigate 
BTOT  ffg 
TYPE  FFG, 

ETOT  ffg, 

BTOT  ff 
TYPE  FF, 

ETOT  ff, 

ETOT  frigate, 

% 

BTOT  amphibs 
TYPE  AMPHIBS, 

+ 

+ 

ETOT  amphibs, 

% 

BTOT  mine 
TYPE  MINE  CM, 
ETOT  mine, 

% 

BTOT  aux 
TYPE  AUXILIARY 
+ 

+ 

+ 

ETOT  aux, 

% 

BTOT  T- SHIPS 
TYPE  T- SHIPS, 

+ 

ETOT  TV  SHIPS, 

% 

ETOT  grand, 
STOP 


OGN-25  ,  OGN-36  ,  CGN-3  8 ,  OGN-3 5 ,  OGN-9 
CG-16, CG-26, CG-47 
CRUISER, TOTAL 


DDG-  2 ,  DDG-  3  7  ,  DDG-  5 1 ,  DDG-  993 
DDG, TOTAL 


DD-945 ,DD-963 
DD, TOTAL 


FFG- 1 ,  FFG- 7 
FFG,  TOTAL 

FF-1037  ,FF-1040  ,FF-1052 
FF, TOTAL 
FRIGATE,  TOTAL 


LHD-X,  LSD-41,  LSD-49,  LCC-1 9,  LHA-1,LHD,  LHD-1 , 
LKA-113 , LPD-1 , LPD— 4 , LPH-2 , LSD-28, LSD-36 , LSD- 41 , 
LSD-49, LST- 117 9 
AMPHIBS,  TOTAL 


MCM-1 ,  MSH-1 ,  MSO- 422  ,  MTS 
MINE  SHIPS,  TOTAL 


AD-37  , AD-41  ,AE,  AE-21 ,  AE-23  ,  AE-26  ,  AF-58  ,AFDM, 

AFS-1 ,  AG,  AK-2  86 ,  AO-1 43 ,  AO  177 ,  AOl  87 ,  AO  51 , 

AOE,  ADE-1  ,AOR-l  ,  AR,  ARDM-4  ,  ARS-50  ,  AS-19  ,AS-31 ,  AS-33  , 
AS- 36 ,  AS-39 ,  ASR-21,  ATF-166 ,  ATS-1 
AUXILARY,  TOTAL 


TV  ACS,  T-AG,  T-AGOS-1  ,  T-A0187  , TV  ARC-7  ,T- AVB,  TAGOS-1 , 
TAH-X,  TAOl  87 
TV  SHIPS,  TOTAL 

GRAND,  TOTAL 
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Figure  11-6.  SanpLe  Battle  Grot?)  Report  Format  Control  File 


%  ALIAS  BATTLE  GROUP  REPORT  FORMAT/ CONTENTS  EEFINITICN  FILE 
%  format  is:  title;  start;  type;  fvnction;  bgroup;  makeup;  end 
%  title  line  has  titles  for  report 
%  start  line  indicates  start  of  processing 
%  type  line  indicates  ship  classes  making  up  a  type 
%  function  line  lists  types  which  can  perform  a  function,  in 
%  order  of  preference 

%  bgroup  describes  battle  groups  to  be  made  up 

%  makeup  describes  which  functions  each  battle  group  requires 

% 

TITLE  DepLcyahle  Battle  Group  Projection  Fbr  on  POM-86 
TITLE  Based  on  Surface  Canbatant  Requirements  Only 
THEE  (All  Data  Notional) 

% 

START 

% 

%  type  format  similar  to  force  level  report:  name,  label, class  list 
% 

TYPE  CARRIER,  CARRIER,  OP-41, CP-59, OP-63, OP-67, CPN-65,CPN-68 

TYPE  BB,  BATTLF5H  IP,  BB-6 1 

TYPE  CRUISER,  CRUISER,  (ENh25 , CGN-36 , OSN-3 8 , GGN-3 5 , CGN-9 , CG-16 , 026  , CD-47 

TYPE  EDG,  EDG,  EDG-2  ,  EDG-37  ,  EDG-51 ,  EDG-993 

TYPE  ED,  ED,  ED-945, ED-963 

TYPE  FTC,  FTC,  FTC-1,  FFG-7 

TYPE  FF,  FF,  FF-1037  ,EF-1040  ,FP-1052 

% 

%  function  format  is  name,  list  of  types  which  can  perform  it 
%  in  order  of  preference 
FUNCTION  CHJISER,  CRJISER,BB 


FUNCTICN  EDG,  EDG 

FUNCTION  ED,  ED 

FUNCTICN  FRIGATE,  FTC,  FT* 

% 

%  bgroqp  format  is  name, output  label, priority, target  level, 

%  begin  date  this  defn  takes  effect,  end  date  this  defn  effective 

BGROUP  CPBG,  CARRIER  BG,1 ,15 ,1/1/1900 ,1/1/2111 

BGROUP  SAG, SURFACE  AG,  3  ,  4,1/ 1/1 900, 1/1/2111 

BGROUP  MtfVJARINE  AF,  2  ,  2,1/1/1900,1/1/2111 

BGROUP  ESCrSUPELY  ESGCRT,4 ,10  ,1/V1900, 1/1/2111 

BGROUP  (EN, (ENVOY,  5,10,1/1/1900,1/1/2111 

« 

%  makeup  format  is  battle  group  name,  function,  #  reqd,  func,  freqd 
MAKEUP  CVBG,  CARRIER, 1,  CHJISER,1,  EDG, 4,  ED, 2,  FRIGATE, 4 

MAEKUP  SAG,  CRUISER, 2, EDG,2, FRIGATE^ 

MAKEUP  MAF,  CTOISER,2, EDG, 2, ED,8,  FRIGATE,  10 

MAKEUP  ESC,  ECG,1  ,ED,  1,FRIGATE,2 

MVKFDP  CON,  ED,  1,  FRIGATE,  4 


given  target  applies  through  the  date  given  on  the  BGROUP  line) ; 
then  the  functions  which  are  required  to  MAKEUP  each  group. 


The  Force  Level  format  file  specifies  only  TYPES,  since  the 
force  report  is  raw  numbers  available  by  type,  but  also  has  the 
capabilitiy  to  total  and  subtotal  types.  A  stack-like  logic  is 
used  in  which  the  user  "pushes"  another  total  onto  the  list  of 
those  FLRP  is  making  up  with  a  BTOT  line,  and  "pops"  it  off 
(causing  it  to  be  printed)  with  an  ETOT  or  EITOT  line.  Types  and 
totals  will  appear  on  the  output  in  the  order  in  which  they 
appear  in  the  file. 

Likewise,  battle  groups  and  type  balances  appear  on  the 
Battle  Group  report  in  the  order  in  which  they  are  named  in  the 
Battle  Group  report  control  file. 

The  necessity  of  letting  the  user  specify  both  the  contents 
and  order-of-output  of  both  types  of  report  was  what  prompted  the 
use  of  format  control  files.  These  are  non-standard  ALIAS  con¬ 
structs  because  they  require  the  user  to  know  some  syntax,  use 
the  editor,  and  operate  in  a  fairly  unsupervised  and  unaided 
fashion.  However,  a  method  of  report  specification  relying  only 
on  standard  facilities  such  as  list  menus  would  have  been  very 
clumsy  and  limiting. 

n.3.5  .Scena  si  a .  gey-i’i.gl.fl.y.al-Ufifi 

FLRP  and  BGRP  make  use  of  scenario  system  services  via  the 
DBIF  and  the  contents  of  the  cursen  array  in  the  /scenar/  common 
block  (i.e.  in  the  usual  fashion)  when  constructing  search  keys 
for  retrievals  from  the  relations. 

11.3.6  IteLatlPllS 

FLRP  and  BGRP  read  the  contents  of  ten  relations. 

Vlrjob.mnurel  holds  the  contents  of  the  Out-Of-Force- 
Repair-Jobs  list,  and  is  searched  by  the  programs  via  a  call  to 


the  listen  utility  routine  in  order  to  recover  the  names  of  any 
job  types  which  are  "on".  Liston  also  reads  the  lccref . mnurel 
cross  referencing  relation,  which  is  opened  by  inipre.  These 
relations  are  managed  by  the  Command  System  and  need  be  of  no 
great  concern. 

The  ncjodat.histj  ,  nejodat.  curr  j ,  and  ncjodat.proj  j 
relations  hold  schedules  for  historical,  current,  and  projected 
new  construction,  conversion,  and  reactivation  jobs.  These 
schedule  records  are  vital  data  for  this  module,  since  they  indi¬ 
cate  the  number  of  ships  that  enter  the  force  over  time  and  the 
timing  of  each  entry. 

The  .histj  and  .currj  versions  of  the  relations  can  contain 
both  actual  and  projected  schedule  records  for  a  given  ship,  and 
for  multiple  data  dates.  The  rule  used  by  this  module  for 
selecting  which  single  record  to  use  for  a  given  ship  is  based 
solely  on  datadate:  the  record  with  the  latest  data  date  is  used. 
The  intuition  behind  this  is  that  regardless  of  whether  the 
DATETYPE  field  indicates  the  data  is  actual  or  projected,  the 
record  with  the  latest  datadate  is  most  likely  to  contain  the 
Navy's  best  guess  as  to  the  commissioning  of  a  given  ship.  Note 
that  if  no  commissioning  date  is  given,  the  delivery  date  is  used 
instead,  and  that  if  no  delivery  date  is  given,  the  ship  is 
simply  ignored. 

The  rej  odat.  histj ,  rejodat.  curr  j ,  and  rejodat.proj  j  rela¬ 
tions  form  a  similar  structure  containing  repair  job  schedule 
records.  They  are  searched  with  similar  rules,  but  their  data  is 
less  central  to  force  impact  studies  since  they  are  consulted 
only  for  job  types  which  are  "on"  in  the  Out-Of-Fcrce- Repair- Jobs 
list  menu. 

The  deact.miscj  relation  holds  actual  and  projected  ship 
deactivation  dates  (note  that  a  known  deactivation  date  will 
appear  here  regardless  of  which  new  construction  schedule  rela- 
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tion  the  given  ship's  activating  job  record  appears  in).  This 
relation  is  searched  for  every  activation  found  in  the  ncjodat 
relations.  This  date  is  used  if  it  is  earlier  than  the  date  the 
report  is  being  run  on  (i.e. ,  the  ship  has  already  retired) ,  or 
if  the  user  has  chosen  DATE  for  the  RETIRE  SHIPS  BY  parameter. 

The  shlif e.miscj  relation  must  have  one  record  for  each 
ship  class  which  appears  in  a  report  (this  condition  is  met 
automatically  as  long  as  the  DBU  is  used  for  data  base  main¬ 
tenance)  .  The  record  gives  the  standard  service  life  for  ships 
of  that  class,  which  is  used  to  estimate  a  given  ship  of  that 
class's  retirement  date  if  no  deactivation  date  projection  can  be 
found  for  the  ship  in  deact.miscj  (or  if  the  LIFE  option  is 
chosen  on  the  parameter  menu) . 

The  relations  are  accessed  through  standard  DBIF  calls. 

FLRP  and  BGRP  do  require  that  a  number  of  special  indexes  exist 
for  the  relations  to  support  their  POINT-oriented  search  logic. 

11.4  DATA  STRUCTURES 

11.4.1  Da.ta.  Structures  Used  by  Rath-, Pisgr  sms 

Both  FLRP  and  BGRP  use  the  data  relations  discussed  in  the 
preceding  section,  the  relevant  format  control  file,  an  extra 
data  segment,  a  direct-access  ASCII  file,  and  a  number  of  common 
blocks. 

The  only  additional  thing  to  be  noted  about  the  relations 
is  that  both  the  repair  and  the  new  construction  schedule  rela¬ 
tions  are  each  opened  twice.  The  construction  relations  are 
opened  twice  on  the  same  index  (and  naturally  on  different 
cursors/partitions  since  the  DBIF  is  used)  because  after  a 
construction/conversion  job  is  found  for  a  given  ship,  a  search 
must  be  conducted  for  possible  reactivation  jobs.  The  two 
searches  would  interfere  with  one  another  if  conducted  through 


the  same  cursor.  The  repair  relations  are  opened  on  different 
indexes  to  support  two  different  kinds  of  searches. 

One  of  the  problems  which  had  to  be  solved  for  FLRP  in 
particular  was  the  matter  of  appropriate  location  of  page  feeds 
as  the  report  file  is  printed.  It  is  desirable  to  have  all  the 
lines  in  a  particular  subtotal  group  appear  on  the  same  page  (the 
assumption  here  is  that  in  reports  with  multiple  lines  for  a  TYPE 
totaling  will  be  specified  over  the  lines,  as  is  done  in  the 
sample  in  Figure  11-5)  .  To  ensure  this,  output  lines  are  sent  to 
a  holding  buffer  rather  than  directly  to  the  output  file.  The 
contents  of  the  buffer  are  flushed  to  output  only  when  an  ETOT 
line  is  encountered.  This  buffer  is  actually  an  extra  data 
segment  (it  was  originally  a  common  block,  but  memory  limits 
required  use  of  the  segment)  .  Transfer  of  lines  to  and  from  the 

segment  is  managed  by  calls  to  the  _ mem  utilities  (e.g. 

getmem)  . 

Rather  than  being  sent  directly  to  the  unit  which  is  to 
produce  the  hard  copy  output  (a  problem  if  the  output  device  is 
not  spooled,  since  exclusive  access  will  be  required,  thus  tying 
the  device  up),  report  lines  are  instead  sent  (from  the  extra 
data  segment  buffer)  to  a  sequential-access  ASCII  file.  When  the 
report  is  complete  the  contents  of  the  file  are  read  and  sent  to 
the  output  device  in  a  tight  loop.  If  the  user  has  specified 
that  the  report  be  kept  in  a  disk  file,  then  the  given  file  is 
just  saved  rather  than  being  deleted. 

Table  11-1  presents  an  annotated  listing  of  the  common 
blocks  used  by  the  Force  Impact  module  programs.  These  common 
blocks  form  the  principal  working  data  structure  for 
computational  purposes. 

The  most  important  block  used  by  both  programs  is  contained 
in  the  fltabls.incl  include  file.  A  large  array,  indexed  by  ship 
classes,  period,  and  programs  (FLRP  format  control  PRGLB  keyword) 
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TABLE  11-1.  Include  Files  Used  By  the 
Force  Report  Generators. 


FILENAME 

BGPMTR 

BGTITL 

FL  CLASS 

FL  CONCH 

FLCONS 

FLDECM 

FLHEAD 

FLIOC 

FLJLST 

FLPAGE 

FLPERD 

FLPMTR 


PURPOSE 


FORTRAN  Parameters  defining  battle  group  report 
generator  capacity  limits,  e.g.  maximum  number  of 
functions  definable. 

Title  of  the  battle  group  report  section  now  beina 
printed  (either  BATTLEGROUP  or  BALANCE)  . 

List  of  ship  classes  named  by  the  user  on  TYPE  lines 
in  the  format  control  file,  i.e.  list  of  classes 
whose  ships  are  to  be  retrieved  from  the  data  base 
and  their  force  increments  computed. 

FORTRAN  parameters  defining  key  words  acceptable  in 
the  force  level  report  format  control  file. 

Relation  names,  index  lists,  field  lists,  and  record 
buffers  for  opening  and  retrieving  data  from  all 
three  of  the  ncjodat.  (proj j  currj  histj)  new 
construction  schedule  relations. 

Same  as  FLCONS  but  for  the  deactivations  relation 
deact.miscj . 

User- specif ied  titles  to  appear  on  the  report  and  the 
period- labeling  portion  of  the  page  header. 

FORTRAN  io  unit  assignments  for  flrp  and  bgrp. 
Included  are  the  format  control  file  unit  number,  the 
hard-copy  output  unit,  and  the  save-to-file  unit. 

List  of  force-affecting  repair  job  types,  i.e.  those 
repair  jobs  which  cause  a  ship  to  be  temporarily 
removed  from  the  force  level  while  undergoing  the 
jobs. 

Line  numbers  and  record  used  to  manage/communicate 
with  the  extra  data  segment  in  which  output  is 
temporarily  stored  by  flbg's  full-page  printing 
subsystem. 

Number  of  periods  being  considered  this  run  and  an 
array  holding  the  date  of  the  first  day  of  each 
period. 

FORTRAN  parameters  defining  flbg  capacity  limits, 
e.g.  maximum  number  of  classes  specifiable  on  TYPE 
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FILENAME 

FLRJOB 

FLTABLS 

FLTOTL 

FLVALU 

FUNCBG 

GROUPBG 

INC  PAR 

IOC 

LPRNTS 

MKUPBG 

RE  ADC 
SCENAR 

SHLIFE 


TABLE  11-1.  Include  Files  Used  By  the 
Force  Report  Generators. 


PURPOSE 


lines. 

Like  FLCONS  but  for  the  repair  job  schedule  relations 
rejodat.  (proj j  currj  histj). 

The  array  constructed  by  the  data  base  search 
al gori thro,  containing  the  number  of  deployable  ships 
in  each  class  by  program  type  in  each  period. 

The  arrays  holding  the  running  totals  which  are 
output  on  force  level  reports  when  an  ETOT  or  EITOT 
keyword  is  found  in  the  control  file. 

The  values  of  the  variables  shown  as  parameters  on 
flbg's  command  system  parameter  menu,  as  extracted 
from  the  /pvalue/  array  by  the  flinit  routine. 

Names  of  battle  group  functions,  as  defined  on 
FUNCTION  lines,  and  array  locations  of  the  types 
which  can  perform  those  functions. 

Information  describing  the  battle  groups  defined  as 
desired  on  the  BGROUP  lines  of  battle  group  format 
control  files.  See  also  MKUPBG. 

System  Core  (command  system)  capacity  defining 
FORTRAN  parameters,  mainly  used  here  to  specify 
terminal  input  line  length. 

Standard  ALIAS  FORTRAN  io  unit  numbers;  mainly  in  and 
iout  used  here. 

Array  of  diagnostic  print  switches. 

Linked  list  of  functions  (and  amount  of  each) 
required  to  make  up  each  battle  group. 

Line  number  of  last  line  read  from  input  file. 

Scenario  system  information;  current  scenario  name 
and  scenario  field  key  value  for  queries  on  each 
relation  opened  using  the  DBIF. 

Like  FLCONS  but  for  the  ship  class  standard  lifetime 
specification  relation  shl  if e.miscj . 
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is  declared  here.  The  raw  results  of  the  data  base  search 
(number  of  ships  of  each  class  available  in  each  period,  by  era 
of  construction)  are  placed  here  for  refinement  into  the  final 
report  format. 

In  addition  to  these  data  structures,  program  BGRP  makes 
use  of  several  additional  important  common  blocks.  The  /groupbg/ 
block  contains  the  name,  priority,  etc.  for  each  requested  battle 
group  as  well  as  the  actual  numbers  which  are  computed  to  be 
achievable.  The  /mkupbg/  block  holds  an  array,  managed  as  a 
linked  list,  which  lists  the  "functions"  which  make  up  each 
battle  group  and  their  numerical  requirements,  /funcbg/  contains 
information  which  supports  cross-referencing  between  function 
names  and  lists  of  ship  "types"  which  can  perform  the  functions, 
and  /typebg/  contains  the  number  of  each  type  available  in  each 
period  (summarized  from  the  contents  of  /fltabls/)  . 

11.5  PROCESSING  LOGIC 

11.5.1  EL££ 

Table  11-2  lists  the  routines  which  comprise  the  FLRP 
program  (not  including  general-purpose  ALIAS  FORTRAN  utilities  or 
the  routines  in  the  DBIF)  and  indicates  which  source  file  family 
they  reside  in.  Table  11-3  provides  a  complete  annotated  listing 
of  all  the  routines  in  FLRP  and  BGRP.  See  Section  11.8  for  com¬ 
plete  abstracts  of  routines.  A  calling  tree  diagram  for  FLRP 
appears  in  Figure  11-7. 

This  section  will  summarize  the  logic  of  the  program. 

FLRP  initialization  includes  retrieval  of  the  data  placed 
in  the  swap  segment  by  the  Core,  retrieval  of  the  list  of  Out-Of- 
Force-Repai r- Jobs,  prompting  for  the  name  of  the  format  control 
file,  and  opening  of  all  the  relations  required.  This  activity 
is  supervised  by  the  flinit  routine. 
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TABLE  11-2.  Alphabetical  Listing  of  Routines  in  FLRP 

A  Program 


ROUTINE 


FFL1BL 

FLADPG 

FLBRPT 

FLBUGI 

FLCHK1 

FLCHK2 

FLCHK3 

FLCLAS 

FLCLOS 

FLDECR 

FLGLIF 

FLINCL 

FLINCR 

FLINIT 

FUOB 

FLNPER 

FLNXTP 

FLPARS 

FLPDAY 

FLPMTH 

FLPQTR 

FLPRGN 

FLPRNT 

FLPROC 

FLPWEK 

FLPYER 

FLRDCN 

FLRDLN 

FLREPT 

FLRFGN 

FLTYPE 

FLWRIT 

FLWTOP 

FNDPRD 

GETJOB 

GETLIF 

PAR2LN 

PAR3LN 

READFL 

SKIPFL 


HOST  FILE 


FLBGxxx 

FLRPA 

FLRPA 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLRPA 

FLBGxxx 

FLRPA 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLRPA 

FLBGxxx 


ROUTINE 

BGADPG 

BGBRPT 

BGFUNC 

BGGET 

BGINIT 

BGMKUP 

BGMRPT 

BGPROC 

♦BGREPT 


Table  11-3.  Annotated  List  of  Force  Level  and  Battle 

Group  Report  Generator  Routines 


PURPOSE 


Adds  an  availability-row  line  (i.e.  a  set  of  numbers 
by  periods)  to  the  line  buffer  (extra  data  segment). 

Like  FIBRPT  but  more  complex,  this  routine  is  the 
executive  for  actual  production  of  the  battle  group 
report  text.  It  processes  the  format  control  file 
and  prepares  the  data  structure  for  report 
production.  Then  calls  BGGET  and  BGMRPT  for  output 
construction. 

Processes  a  battle  group  format  control  file  function 
line.  Principal  output  is  the  fnmlst  and  f define 
arrays,  a  list  of  defined  function  names  and  an  array 
which  allows  cross  referencing  from  the  name  to  TYPE 
storage  array  elements. 

Computes  battle  group  availability  when  /fltabls/  and 
format  control  file  processing  is  complete.  Outer 
loop  is  over  periods,  inner  over  battle  groups  in 
order  of  priority.  Groups  are  made  up  with 
provisional  decrementing  of  the  available  TYPE  pools, 
which  is  committed  when  a  group  is  fully  constructed. 

Zeros  relevant  arrays. 

Processes  a  MAKEUP  line  from  the  battle  group  format 
control  file.  Output  is  a  linked  list  in  the  BGMKUP 
array  which  specifies  which  functions,  and  how  many 
of  each,  are  required  to  makeup  the  given  battle 
group. 

Actually  writes  lines  of  the  computed  report  to  the 
line  buffer  (extra  data  segment). 

Similar  to  FLPROC,  makes  the  first  pass  through  the 
battle  group  format  control  file  in  order  to 
construct  the  list  of  ship  classes  of  interest  which 
ffltbl  requires.  Also  reads  and  stores  TITLE  lines. 

Main  program  unit  and  chief  executive  for  the  BGRP 
battle  group  report  generation  program.  Calls  other 
high-level  routines  to  do  the  actual  work. 


BGSETV 


Increments  a  row  array  with  a  given  value  for  the 
period  between  two  given  dates.  Used  to  set  the 
target  number  of  each  battle  group;  this  target  can 


ROUTINE 


BGTYP2 

BGWRIT 

BGWTOP 

BTLGRP 

FFLTBL 

FLADPG 

FLBRPT 

FLBUGI 

FLCHKl 

FLCHK2 

FLCHK3 


Table  11-3.  Annotated  List  of  Force  Level  and  Battle 

Group  Report  Generator  Routines 


PURPOSE 


vary  over  time. 

Processes  TYPE  lines  from  the  battle  group  report 
format  control  file.  Output  is  the  TYPTOT  array, 
which  is  the  number  of  ships  of  all  the  classes  named 
on  the  type  line  which  are  available  in  each  period. 

Similar  to  FLWRIT,  now  unused. 

Writes  titles  and  section  header  lines  to  the 
sequential  storage  file  when  a  new  page  is  called 
for. 

Processes  BGROUP  lines  from  the  format  control  file. 
Output  is  the  /groupbg/  common  block  describing  the 
battle  groups  and  their  target  and  achieved  amounts. 

Executive  for  the  search  of  the  data  base  for  data  on 
commissionings  and  decommissionings  of  classes  of 
interest.  The  bulk  of  the  logic  is  acutally  in  this 
routine.  It  searches  every  construction  and  repair 
relation  for  jobs  done  on  ships  in  the  classes 
specified  in  the  format  control  file,  and 
appropriates  increments  the  /fltabls/  data  structure. 
See  the  text  for  more  information  on  the  algorithm. 

Writes  an  array  line  to  the  text  buffer  (extra  data 
segment)  . 

Executive  for  actual  creation  of  the  Force  Level 
report  output.  Re-reads  the  format  control  file  and 
constructs  output  lines  based  on  its  directives  and 
using  the  data  created  by  FFLTBL. 

A  service  routine  called  to  read  a  file  line;  written 
in  response  to  a  compiler  bug  which  caused  legal  code 
using  the  usual  utilities  to  be  uncompilable. 

These  three  logical  function  utilities  take  one, 
two,  and  three  pairs  of  string  arguments, 
respectively  and  return  whether  or  not  they  are 
equal.  They  are  used  mostly  in  checking  tuples 
retrieved  from  relations  to  see  if  they  have  the 
proper  key  values. 


FLCLAS 


Subsidiary  of  FLPROC  which  supervises  construction  of 


Table  11-3. 

Annotated  List  of  Force  Level  and  Battle 
Group  Report  Generator  Routines 

ROUTINE 

PURPOSE 

FLCLOS 


FLDECR 


FLGLIF 


FLINCL 


FLINCR 


FLIN  IT 


FLJOB 


FLNPER 


the  list  of  classes  of  interest.  Takes  a  TYPE  line, 
makes  additions  to  /flclass/. 

Closes  all  files  and  relations.  Hie  act  of  closing 
the  report  output  file  starts  printing  if  the  "file" 
is  in  fact  a  spooled  device. 

Like  FLDECR  except  subtracts  one  from  the  elements  of 
the  array.  Used  to  remove  a  ship  from  the  reported 
force  for  the  periods  it  is  out  for  repairs,  if  any. 

Given  a  construction/deactivation/reactivation 
history  for  an  individual  ship  and  its  standard 
lifetime,  calculates  the  ship's  projected  final 
retirement  date. 

Takes  a  character  variable  and  a  list  in  the  form  of 
an  array  and  adds  the  variabl's  contents  to  the  list 
if  it  is  not  already  on  the  list.  Used  to,  e.g., 
manage  additions  to  the  list  of  classes  of  interest. 

Increments  elements  of  a  row  of  the  main  /fltabls/ 
array  (correponds  roughly  to  a  row  on  the  report 
output)  by  one  for  those  elements  representing  the 
period  between  two  given  dates.  Essentially,  adds  a 
ship  to  the  reported  force  for  its  lifetime. 

Main  initialization  routine  for  both  FLRP  and  BGRP, 
with  source  code  in  recomp,  src  (since  it  must  read 
the  /pvalue/  data  structure.  Transfer  parameter 
values  from  /pvalue/  into  /flvalu/,  prompts  for  and 
opens  the  format  control  file,  opens  the  output  file 
and/or  device,  and  opens  all  the  relations  which  will 
be  involved  in  the  data  base  search. 

Processes  a  JOB  line  from  a  force  level  report  output 
control  file,  producing  a  line  for  the  output  report. 
Constructs  a  list  of  classes,  taken  from  the  input 
line,  and  calls  GETJOB  to  find  out  how  many  ships  of 
each  class  were  out  for  each  job  in  each  period. 

Ifcen  formats  and  sends  the  output. 

Using  the  start  and  end  dates  of  interest  and  the 
time  units  specification  from  the  parameter  menu, 
figures  out  how  many  periods  there  are  in  the 
exerci se. 
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ROUTINE 


FLNXTP 

FLPARS 

FLPDAY 

PLPMTH 

FLFQTR 

FLPRGN 

FLPRNT 


FLPROC 


FLEWEK 

FLPYER 

FLRDCN 


Table  11-3.  Annotated  List  of  Force  Level  and  Battle 

Group  Report  Generator  Routines 


PURPOSE 


Figures  out  what  report  period  (output  column)  a  date 
falls  in  by  comparing  it  with  the  array  of 
period-start  dates  set  up  during  initialization. 

Parses  an  input  string  consisting  of  a  list  delimited 
by  commas  into  individual  elements,  placing  the 
elements  in  an  array. 

A  series  of  date  utilities,  written  before  the  gdatep 
/gpern/fddate  general  purpose  period  utilties,  which 
figure  out  how  many  periods  of  the  given  type  there 
are  between  two  given  dates.  Also,  fills  in  the 
array  of  start  dates  of  each  period. 

Integer  function  used  to  find  out  which  program  line 
a  given  job  will  fall  on  based  on  its  basis  date. 

I.e.  will  a  job  be,  e.g.,  inventory  (1)  or  program 

(2). 

During  report  construction,  output  lines  are  first 
stored  in  an  extra  data  segment  until  a  complete  set 
of  lines  (i.e.  including  all  associated  totals)  can 
be  sent;  the  set  of  lines  are  then  printed  to  a 
sequential  holding  file  (the  one  the  report  will  be 
saved  in  if  the  user  has  requested  a  save  on  disk)  . 
This  routine  rewinds  the  holding  file  and  writes  the 
report  to  the  output  device  when  report  construction 
is  completed. 

Conducts  the  first  read  of  the  format  control  file, 
the  object  of  which  is  construction  of  a  list  of  the 
ship  classes  the  user  is  interested  in  (/flclass/)  . 
This  list  is  required  by  ffltbl.  Also  looks  for  the 
PROGRAM  keyword  lines  ti  find  out  how  many  lines  to 
split  each  classes  members  into,  and  stores  the 
user- specif  ied  TITLE  lines. 

See  FLPDAY  above. 


Utility  for  reads  of  the  format  control  file.  Calls 
FLRDLN  and  counts  the  number  of  lines  returned. 


FLRDLN 


Reads  a  line  from  the  file  open  on  a  given  FORTRAN 
unit  number. 


Table  11-3.  Annotated  List  of  Force  Level  and  Battle 

Group  Report  Generator  Routines 


ROUTINE  PURPOSE 


♦FLREPT  Main  program  unit  for  FLRP,  the  force  level  report 
generator.  An  executive  which  calls  six  high-level 
routines  to  do  the  work  of  producing  the  report. 

FLRPGN  Obsolete  version  of  FLPRGN. 

FLTYPE  Processes  a  format  control  file  TYPE  line  during 

actual  report  constuction,  converting  it  into  output 
lines.  Uses  the  list  of  classes  to  search  /fltabls/ 
for  rows  of  deployable  ships  in  each  periodr  summing 
these  rows,  and  writing  out  the  result  when  finished. 

FLWRIT  Writes  the  contents  of  the  line  buffer  to  the 

sequential-access  output  file. 

FLWTOP  Writes  the  title  and  period  header  lines  to  the  line 

buffer/extra  data  segment,  i.e.  starts  a  new  page. 

FNDPRD  Given  a  date,  finds  which  period  it  belongs  in. 

Obsolete. 

GETJOB  Given  a  class  name  and  job  type  code,  searches  the 

repair  schedule  relations  for  instances  of  that  job 
on  that  class.  Increments  a  row-array  for  each  one 
found  for  the  period  the  given  ship  is  undeployable. 

GETLIF  Retrieve  (from  shlif e.miscj)  and  convert  to  days  the 

standard  lifetime  of  the  ships  in  a  given  class. 

GMAKUP  Returns  a  record  from  the  linked  list  of  functions 

comprising  a  given  battle  group  in  the  /mkupbg/ 
common  block. 

PAR2LN  FBLG  utility  which  takes  a  line  of  elements  separated 

by  commas,  separates  off  the  first  element,  and 
returns  that  element  and  the  remainder  of  the  line. 
Used  to,  e.g.,  extract  labels  from  format  control 
input  lines. 

PAR3LN  Like  PAR2LN  except  returns  the  first  two  elements  and 

the  remainder. 

READBG  Reads  a  line  from  a  battle  group  format  control  file 

and  decodes  its  ktyword.  Strips  off  the  keyword  and 
returns  the  rest  of  the  line. 
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ROUTINE 


READFL 


SKI PEL 


Table  11-3.  Annotated  List  of  Force  Level  and  Battle 

Group  Report  Generator  Routines 


PURPOSE 


Reads  a  line  from  the  FLRP  format  control  file  and 
decodes  its  keyword.  Strips  the  keyword  from  the 
line  and  returns  the  remainder  to  the  caller. 

Reads  and  discards  lines  from  the  format  control  file 
until  a  line  with  a  START  keyword  is  found. 
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FLINIT 


“FLNPER 

~  FLPDAY 
-  FLFWEK 
“FLPMTH 
“PLPQTR 
LFLPYER 


FLPROC 
_ _ | 

-PAR2LN 

-SKIPFL-  FLRDCN 

-FLCLASt  FLPARS 
FLINCL 

READFL  FLRDCN 

FLRDLN 


FFLTBL 

— — — J 

-  FLPRGN 
“  FLGLIF 
-FLINCR 

-  FLCHK2 
-GETLIF 

-  FLNXTP 


FLBRPT 


FLPRNT 


-READFL 

■SKIPFL 

■FLWTOP 

•  PAR3LN 
FLADPG 

•  FLWRIT 

I 

FLWTOP 


”1 - 

FLJCB 

— I 

-  PAR3LN 

-  PAR2LN 
-FLPARS 
-GETJOB 
-READFL 
-SKIPFL 


FLTYPE 
-PAR2LN 
-FLPARS 
-READFL 
SKIPFL 
FLADPG 


FLADPG 


Flproc  is  then  called  to  read  through  the  format  control 
file  in  order  to  construct  a  list  of  the  classes  of  interest  for 
the  report,  as  specified  on  TYPE  lines.  Flproc  also  reads  and 
stores  away  the  user-specif ied  report  title  and  the  program-era 
specifications  given  on  any  TITLE  and  PRGLB  lines. 

with  this  information  in  hand  the  search  of  the  data  base 
can  be  conducted.  This  search  is  managed  by  the  ffltbl  routine. 
The  logic  of  the  routine  is  built  around  (or  inside)  a  loop  over 
the  list  of  classes  of  interest,  as  shown  in  Figure  11-8. 

For  each  class,  its  standard  service  life  is  first 
retrieved.  Then  all  jobs  on  ships  of  that  class  are  retrieved 
from  the  ncjodat.  (histj  currj  projj)  relations,  one  relation  at  a 
time,  from  historical  to  projected.  For  each  job  found,  an  addi¬ 
tional  search  of  the  ncjodat  relations  is  made  to  see  if  there 
are  any  subsequent  reactivations.  Also,  a  search  is  made  for  a 
specific  retirement  date  for  the  given  ship.  The  proper  program 
line(s)  of  a  holding  buffer  are  incremented  for  each  period  when 
the  given  ship  was  active.  When  all  the  activating  jobs  have 
been  processed,  a  loop  over  the  repair  job  relations  retrieves 
all  repair  jobs  of  interest  for  the  given  class,  and  the  holding 
buffer  is  decremented  in  the  appropriate  periods.  When  all 
processing  is  complete  for  the  given  class,  the  holding  buffer  is 
moved  into  the  /fltabls/  storage  array. 

This  step  consumes  almost  all  of  the  large  amount  of  exe¬ 
cution  time  required  by  FLRP.  The  low  apparent  rate  of  progress 
is  caused  by  the  large  number  of  data  base  queries  which  are  re¬ 
quired;  these  queries  are  each  relatively  time  consuming  because 
of  RELATE  response  time  limitations. 

Once  the  raw  per- period  force  availabilities  are  computed 
by  class,  the  actual  output  report  can  be  constructed.  This 
process  is  supervised  by  the  flbrpt  routine,  which  rewinds  and 
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Figure  11-8.  FFLTBL  FLOW  OF  EXECUTION  SUMMARY 


FOR  EVERY  CLASS  OF  INTEREST 

Get  standard  life  of  ships  in  class 

FOR  EVERY  NC  RELATION  (histj  to  projj) 

Find  next  job  of  interest  in  class 
Find  associated  decommissioning  date 
Compute  force  level  increment 
Look  for  reactivations 

When  found,  note  life  added  and 
look  for  later  decommissionings 

NEXT  NC  RELATION 

FOR  EVERY  RE  RELATION  (histj  to  projj) 

Look  for  jobs  in  this  class  that  are 
job  types  turned  "on"  on  list  menu 

When  found,  decrement  force  level 

NEXT  RE  RELATION 

SAVE  INFO  FOR  THIS  CLASS  INTO  /FLTABLS/ 

NEXT  CLASS 
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re-reads  the  format  control  file,  now  processing  every  keyword 
line  (except  TI1LE  and  PRGLB) .  In  particular,  for  each  TYPE  line 
encountered,  a  list  of  the  classes  in  the  type  is  constructed  and 
the  per-period  availability  of  each  class  is  extracted  from 
/fltabls/  and  summed  into  a  holding  array.  This  array  can  be 
thought  of  as  being  composed  of  the  rows  which  appear  on  the 
output — as  many  rows  as  there  are  eras  or  "program  lines".  The 
contents  of  the  array  are  also  added  to  any  totaling  buffers 
which  are  active  (i.e.  to  as  many  rows  of  the  /fltotl/  block  as 
there  have  been  BTOT  lines  given).  Then  the  program  rows  are 
formatted  and  sent  to  the  output  buffer  by  calls  to  fladpg. 

When  an  ETOT  or  EITOT  keyword  is  encountered  the  "topmost" 
total  row  is  sent  to  the  output  buffer  and  the  number  of  active 
totals  is  decremented  by  one. 

The  JOB  keyword  line  is  unusual.  Its  purpose  is  to  allow 
ships  temporarily  in  out-of-force-repair- job  status  to  appear  on 
the  report,  so  that  they  may  be  totaled.  In  this  way  an  accurate 
representation  of  the  number  of  ships  actually  in  existence  may 
be  given  in  addition  to  an  accurate  representation  of  the  number 
deployable.  JOB  line  processing  is  undertaken  by  the  fljob 
routine,  which  takes  the  given  class  list  and  searches  the 
rejodat. (histj  currj  projj)  relations  for  instances  of  jobs  of 
interest  on  ships  in  the  classes.  Any  found  were  certainly 
removed  from  the  deployable  force  totals  by  the  logic  in  ffltbl, 
so  no  double  counting  can  result. 

When  flbrpt  has  completed  processing  of  the  format  control 
file  all  work  is  essentially  done.  The  flprnt  routine  rewinds 
the  sequential  disk  file  to  which  all  output  has  been  sent  and 
writes  its  contents  to  the  output  device.  FI  cl  os  then  closes  all 
files  and  relations  and  program  processing  terminates  with  a 
STOP.  This  automatically  reactivates  the  System  Core  process  and 
the  user  is  returned  to  the  Force  Impact  choice  menu. 


11.5.2  £G£P 

An  alphabetical  list  of  the  routines  in  program  BGRP  is 
given  in  Table  11-4.  A  calling  tree  diagram  for  BGRP  is  given  in 
Figure  11-9.  The  logic  of  this  program  is  very  similar  to  that 
of  FLRP  up  to  the  point  of  actual  construction  of  the  report. 

Note  that  ffltbl  is  used  in  both  cases  to  conduct  the  data  base 
search. 


Bgbrpt  (Battle  Group  Build  RePoRt)  faces  a  much  different 
task  than  does  flbrpt,  however.  Instead  of  summarizing  the 
number  of  ships  deployable  in  fairly  raw  terms,  this  routine  must 
allocate  scarce  resource  (the  ships)  among  competing  demands  (the 
battle  groups)  . 

It  does  this  on  a  per iod-by- period  basis  (i.e.  its  outer 

loop  is  over  periods) - the  allocation  in  any  one  period  is 

independent  of  that  in  any  other.  Within  a  period,  ships  are 
allocated  to  the  highest-priori ty  battle  group  until  its  target 
number  is  reached,  or  until  a  constraint  makes  it  impossible  to 
have  more  of  that  particular  group. 

The  requirements  of  each  group  are  specified  in  terms  of 
(possibly)  broad  functions,  each  of  which  may  be  filled  (in 
descending  order  of  preference)  by  several  ship  types,  each  of 
which  in  turn  may  be  composed  of  several  classes. 

The  type,  therefore,  is  the  lowest  common  denominator  for 
purposes  of  the  allocation.  The  number  of  ships  of  each  type 
available  in  each  period  is  computed  from  the  contents  of 
/fltabls/  and  placed  in  the  /typtot/  summary  array  before  allo¬ 
cation  begins. 

The  allocation  is  done  on  a  trial-and-error  basis, 
proceeding  in  order  of  priority  and  preference.  For  example, 
when  computing  the  number  of  carrier  battle  groups  as  specified 
in  the  format  control  file  in  Figure  11-6,  bgget  (the  allocation 
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ROUTINE 


BGADPG 

BGBRPT 

BG  FUN  C 

BGGET 

BGINIT 

BGMKUP 

BGMRPT 

BGPROC 

BGREPT 

BGSETV 

BGTYPE 

BGWRIT 

BGWTOP 

BTLGRP 

FFLTBL 

FLADPG 

FLBUGI 

FLCHK1 

FLCHK2 

FLCHK3 

FL  CL  AS 

FLCLOS 

FLDECR 

FLGLIF 

FLINCL 

FLINCR 

FLINIT 

FLJOB 

FLNPER 

FLNXTP 

FLPARS 

FLPDAY 

FLPMTH 

FLPQTR 

FLPRGN 

FLPRNT 

FLIWEK 

FLPYER 

FLRDCN 

FLRDLN 

FLRPAGN 

FLWRIT 

FLWTOP 

FNDPRD 

GETJOB 


TABLE  11-4.  Alphabetical  Listing  of  Routines 

in  BGRP  Program 


HOST  FILE 


BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

BGRPxxx 

FLBGxxx 

FLRPA 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLBGxxx 

FLRPA 

FLBGxxx 

FLBGxxx 
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TABLE  11-4.  Alphabetical  Listing  of  Routines 
in  BGRP  Program 


ROUTINE 


GETLIF 

GMAKUP 

PAR2LN 

PAR3LN 

READBG 

READFL 

SKIPFL 


HOST  FILE 


FLBGxxx 

BGRPxxx 

FLBGxxx 

FLBGxxx 

BGRPxxx 

FLRPA 

FLBGxxx 


Figure  11-9.  BGRP  Calling  Tree  Diagram 


executive)  would  start  by  asking  up  one  battle  group.  It  would 
do  this  by  decrementing  1  carrier  from  function  carrier,  i.e. 
from  the  number  of  ships  of  type  carrier  available;  then  it  would 
decrement  1  cruiser  from  function/type  cruiser.  If  there  were  no 
ships  left  of  type  cruiser,  it  would  try  type  BB,  since  that  is 
an  alternative  for  the  cruiser  function. 


The  decrementing  that  is  taking  place  is  being  done  on  a 
temporary  copy  of  the  type  availability  array,  so  that  if 
construction  of  a  given  group  cannot  be  completed  no  "backing 
out"  must  be  done  to  restore  the  actual  count  available. 

Once  all  computations  are  complete  the  report  is  written 
out  and  flprnt  and  flclos  are  called  to  close  files  and  clean  up. 

11.6  FILES  USED  BY  THE  FORCE  IMPACT  MODULE 

Source  code  for  FLRP  alone  is  in  flrpa.src.  That  used  only 
by  bGRP  is  in  bgrpa.src,  bgrpbgi.src,  and  bgrpbgw.src.  Code  for 
routines  used  jointly  is  in  flbga. src,  flbgflg.src,  flbgflp. src, 
and  flbgflr. src.  Object  code  is  in  the  complementary  files  in 
the  .obj  group.  Combined  (PREPable)  object  code  is  in  flrp.obj 
and  bgrp.obj.  Program  files  are  tflrp.prog,  flrp.prog, 
tbgrp.prog,  and  bgrp.prog  (development  and  production  versions)  . 

The  format  control  input  files  are  conventionally  stored  in 
the  .fmtfil  group. 

Default  output  file  when  the  report  is  saved  to  disk  is 
flrept  in  the  log-on  group  for  both  BGRP  and  FLRP. 

Relations  used  are  lccref .mnurel,  vlrjob.mnurel, 
ncjodat.proj j,  ncjodat. curr j,  ncjodat.hist j,  rejodat.proj j, 
rejodat.currj  ,  rejodat.miscj  ,  deact.miscj,  and  shlif  e.miscj  . 
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11.7  SUMMARY  OP  INTERFACES 

The  Force  Impact  Module  is  fairly  independent  of  other 
system  components.  It  does  use  the  standard  Core  services 
(scenario  system,  DBIF,  and  swap  of  Core  data  via  a  call  to 
iniprc) .  The  module  is  very  dependent  on  the  structure  of  the 
data  base.  Any  change  to  the  file  or  indexing  structures  of  the 
relations  listed  in  the  previous  section  will  be  likely  to  render 
the  module  inoperative. 

11 .8  SUBROUTINE  ABSTRACTS 

Abstracts  for  both  program  FLRP  and  program  BGRP  are  given 
on  the  following  pages  in  alphabetical  order.  See  Table  11-4  for 
a  summary  of  the  routines. 
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C  BGREPT  . . ***************** . * . 

SCONTRQL  check*3, segment*BGRP 
PROGRAM  BGREPT 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *♦* 

CSPURPOSE  exec  for  battle  Qroup  force  level  report  generator 
CtAUOIT  HISTORY 

C  MEMutchler  27-JUN-83  AUTHOR 

C#TYPE  main  program 

CtCOMMON  BLOCKS  none 

CtCALLED  BY  menu  system  choice  menu 

CtMETHOD 

C  Initialize  and  open  necessary  relations  and  files. 

C  Parse  output  control  file  creating  an  alphabetized  list  of 
C  all  ship  classes  found  on  type  lines.  Fill  in  force  level  table, 

C  one  row  for  each  ship  class  found,  one  column  for  each  time  period, 

C  as  number  of  ships  built  of  that  class  in  that  time  period  -  number 
C  of  ships  of  that  class  and  period  out  for  major  deactivaing  jobs  or 
C  in  temporary  retirement.  Process  output  control  file  along  with 
C  the  force  level  table  to  build  battle  group  force  level  report  file. 
C  Print  force  level  report  file. 

CtLOCAL  VARIABLES 
C  err  error  flag 
C## 
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C  BGAOPG* . * . * . . . 

SCONTROL  check*3, segment»BGRP 

SUBROUTINE  BGADPG< TOTARRY ,LAB > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

XINCLUDE  FLPMTR 
XINCLUOE  FLPERO 
XINCLUDE  FLHEAO 

CHARACTER  LAB*LENRLB 
INTEGER  TOTARRY<  MXPERO  > 

C*  ***  ABSTRACT  *** 

CftPURPQSE  write  total  line  to  pagebuf 
CtAUOIT  HISTORY 

C  MEMutchler  28-nay-83  AUTHOR 

CfTYPE  force  level  io  routine 
C#F0RMAL  PARAMETERS  none 
CtCOMMON  BLOCKS 

Cio  flpage  holds  pagebuf 

Cin  flhead  holds  output  text  specs 

Cin  fltotl  holds  line  to  be  output 

Cin  flperd  holds  period  info 

C1METH0D 

C  write  text  to  buf  keeping  track  of  lines  used 
Ctt 
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C  86BRPT***** . . . * . 

SCQNTROL  check*3, segment^BGRP 
SUBROUTINE  BGBRPT  (ERR) 

C*  **#  FORMAL  PARAMETER  DECLARATIONS  *** 

LOGICAL  ERR 

C*  ***  ABSTRACT  *** 

CtPURPOSE  use  output  control  file  and  fltabl  to  create 
C  force  level  report  file 

CtAUDIT  HISTORY 

C  MEMutchler  23-may-83  AUTHOR 

CfTYPE  force  level  report  utility 

CKFORMAL  PARAMETERS 
Cin  err  error  flag 

CfCOMMON  BLOCKS 


incpar  global  parameters 
charcon  output  control  file  keywords 
readc  holds  line  number  last  read 
fltotl  holds  otaling  arrays 

fltabls  holds  force  level  tables  for  each  program 
f lreport 


Cin 
Cin 
Cin 
Cio 
Cin 

CfCALLER 
C#METHOD 

C  process  output  control  file  by  line  creating  the  structure 
C  for  a  force  level  report  use  values  in  fltabls  for  data. 

C  Determine  which  type  of  line  just  read  from  output 
C  control  file  and  process  accordingly 
C  START  read  everyiine  between  a  START  and  STOP  line 
C  only  title  and  program  labels  are.  acknowledged 

C  prior  to  the  initil  start 

C  +  this  is  a  continuation  of  the  text  of  last  line,  only 

C  for  JOB  or  TYPE  lines 

C  TITLE  center  text  on  the  top  of  each  report  page 
C  must  be  read  before  inital  start 

C  TYPE  text«typename, classes  to  make  up  type;  defines  a  type 
C  get  values  from  force  level  tables  for  program  types 

C  and  add  class  levels  togeather 

C  JOB  text*typename, jobname, job  as  known  to  RELATE, classes 

C  in  type;  total  all  job  done  to  each  class  for  programs 

CtLOCAL  VARIABLES 

C  protot  program  totaling  arrays 

Cff 


u 


40 


C  86FUNO* . * . ******** . *** 

SCONTROL  check*3,segment“BGRP 

SUBROUTINE  BGFUNC< INFILE , IKEV , LINE , LENLINE , ERR , EOF  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

^INCLUDE  INCPAR 
% INCLUDE  FLPMTR 

INTE6ER  INFILE, IKEY, LENLINE 
LOGICAL  EOF, ERR 
CHARACTER  LINE*LLINE 

C*  ***  ABSTRACT  *** 

CfPURPOSE  process  a  fuction  line  from  infile  to  get  battle  group 
CiHISTORY 

C  MEMutchler  lS-may-83  AUTHOR 

CtTYPE  process  force  level  output  control  file 
CtFORMAL  PARAMETERS 

Cm  infile  read  from  this  file 

Cio  ikey, line, lenline, err ,eof  results  of  readfl 

CtCOMMON  BLOCKS 

Cio  readc  holds  line  counter 

C3CALLER  flbldr 

CfMETHOO 

C  get  label  off  line,  split  rest  of  line  into  type  names 
C  assume  first  type  found  has  top  pr lor i ty , etc . 

C  process  type  names  by  storing  index  intotype  totals  as 
C  fdefine< priority  of  choice , funct ion  it  will  achieve) 

C  ,  process  next  line  untill  it  is  not  a 
C  continuation  line 


C  . . . . .*..******.* . ***** 

$CONTROL  check»3, segment*BGRP 
SUBROUTINE  BGGEKERR) 

C*  «♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

C»  ***  ABSTRACT  *** 

CtPURPOSE  Compose  the  battle  groups  from  the  available  ship 
C  pool. 

CtAUDIT  HISTORY 

C  MEMutchler  29-JUB-83  AUTHOR 

CtTYPE  battle  group  counting 
CtFORMAL  PARAMETERS 

Cout  err  true  if  major  error  was  found 

CtCOMMON  BLOCKS 

Cin  groupbg  descrip  of  battle  group  compositions,  tgts 

Cin  typebg  ships  available  by  type 

Cin  funcbg  functional  ship  family  definitions 

CfCALLER  bgbrpt 

CtMETHOD 

C  given  data  from  forcelevel  table  and  battlegroup 

C  output  control,  make  up  battle  group  force,  one 

C  period  at  a  time,  filling  first  priority  groups 

C  first,  with  first  choice  type  to  do  a  function 

CKLOCAL  VARIABLES 

C  temptypt  buffer  of  per-period  ships  avail  for  a  type 

C  grprior  group  priority  buffer 
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C  BGINIT********** . * . * . 

SCONTRQL  check*3 , segment»BGRP 
SUBROUTINE  BGINIT 

C*  ***  FORMAL  PARAMETER  DECLARATIONS 

c#  ***  ABSTRACT 

CtPURPOSE  initialize  BGRP  internal  buffers. 

C  enddate 

CtAUOIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CfTYPE  intialize  arrays  to  zero 

C*F0RMAL  PARAMETERS 
CtCOMMON  BLOCKS 

Cout  typebg  ship  type  aveil  info 

Cout  groupbg  battle  groups  defns 

Cout  funcbg  functional  families 

CSMETHOO 

C  Loops  setting  array  locations  to  zero. 

Ctt 


•  ** 
#*■» 


C  B6MKUP . * . . . ********** 

SCONTROL  check*3, segment «BGRP 

SUBROUTINE  BSMKUP( INFILE , IKEY , LINE , LENLINE, ERR , EOF  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

XINCLUDE  INCPAR 
XINCLUDE  FLPMTR 

INTE6ER  INFILE, IKEY, LENLINE 
LOGICAL  EOF, ERR 
CHARACTER  LINE*LLINE 

C*  ***  ABSTRACT  *** 

CfPURPOSE  process  a  makeup  line  from  infile  to  get  forcelevl 
CtHISTORY 

C  MEMutchler  27-JUN-83  AUTHOR 

CfTYPE  process  battlegroup  force  level  output  control  file 
CtFORMAL  PARAMETERS 

Cin  infile  read  from  this  file 

Cio  ikey, line, lenline, err ,eof  results  of  readfl 

C#C0MM0N  BLOCKS 

Cio  readc  holds  line  counter 

Cin  flclass  holds  class  list 

CtCALLER  flbldr 
CtMETHOD 

C  get  label  off  line,  split  rest  of  line  into  function  names 
C  .number  of  function  members  needed  for  this  battlegroup 
C  When  done  with  all 

C  functions  from  line,  process  next  line  untill  it  is  not  a 
C  continuation  line 


C  BGMRPT *****#*********#***#****####################### 
SCONTROL  check«3, segment^BGRP 
SUBROUTINE  BGMRPT 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CSPURPOSE  writes  battle  group  report  to  ioutfl 
CtAUQIT  HISTORY 

C  MEMutchler  28-may-83  AUTHOR 

CltTYPE  fore  level  io  routine 

CtFORMAL  PARAMETERS  none 
CSCOMMON  BLOCKS 

Cio  flpage  holds  pagebuf 

Cin  flhead  holds  header  text 

CtMETHOD 

C  write  text  to  buf  keeping  track  of  lines  used 
Ctf 
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C  BGPROC* ******* ****** ********************** ************ 

SCQNTROL  check-3, segment-BGRP 
SUBROUTINE  B6PR0C< ERROR  ) 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS 

LOGICAL  ERROR 

C*  ***  ABSTRACT  *** 

CtPURPOSE  parse  output  control  file  and  create  an  alphabetized 
C  list  of  each  ship  class  mentioned  on  a  TYPE  line. 

Cf AUDIT  HISTORY 
C 

C  MEMutchler  27-JUN-83  AUTHOR 

C&TYPE  find  which  classes  are  to  be  examined 
CtFORMAL  PARAMETERS  non 
CfCOMMON  BLOCKS 

Cin  ioc  i/o  file  assignments 

Cm  incpar  global  parameters 

CtCALLER  flreport 

CSMETHOO  Starting  at  top  of  FILE  QCNTRL  look  at  a  line 
C  IF  line  begins  wih  "TYPE"-  THEN  extract  class  names  from  line  and 
C  following  lines  begimng  with  "  +  add  the  names  to  a 
C  list  of  names  IF  not  already  there.  ELSE  GO  TO  next  line  untill 
C  end  of  file.  Alphabetize  the  list  of  names. 

CtLOCAL  UARIABLES 

C  line  one  line  from  ocfile 

C  lenline  deblanked  length  of  line 

C  eof  true  IFf  end  of  file  ocfile  has  been  read 

C  lenkey  deblanked  length  of  key 

C  St 
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c  BGSETU*** ***************************************  ****** 

SCONTROL  check-3 ,  segment  “E3GRP 

SUBROUTINE  BGSETU< BEGDATE , ENDDATE , PROGRAM , UALUE  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

^INCLUDE  FLPMTR 
XINCLUOE  FLPERO 

INTEGER*4  BEGOATE , ENDDATE 
LOGICAL  DEARLY 

INTEGER  UALUE,  PROGRAM  Cl.MXPERD) 

C*  ***  ABSTRACT  *** 

CfPURPOSE  increment  program  total  for  period  ram  begdate  to 

C  enddate 

CSAUDIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

C#TYPE  set  value  due  to  dates 

C4F0RMAL  PARAMETERS 
Cm  begdate  begining  date 

Cin  enddate  ending  date 

Cio  program  holds  current  program  totals 

C4COMMON  BLOCKS 

Cin  flperd  time  horizon  this  run 

C#METH0D 

C  get  first  period  after  begindate,  get  last  period  before 
C  enddate.  Increment  program  between  these  two  periods 
Ctt 


C  bgtype*** ******************************* ************** 

$CONTRQL  checka3 , segment»BGRP 

SUBROUTINE  BGTYPE( INFILE , IKEY , LINE , LENLINE , ERR , EOF  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

^INCLUDE  INCPAR 
ZINCLUOE  FLPMTR 

INTEGER  INFILE, IKEY, LENLINE 
L06ICAL  EOF, ERR 
CHARACTER  LINE*LLINE 

C*  ***  ABSTRACT  *** 

CtPURPOSE  process  a  type  line  from  infile  to  get  forcelevl 
C#HI STORY 

C  MEMutchler  16-may-83  AUTHOR 

CtTYPE  process  force  level  output  control  file 
C3FQRMAL  PARAMETERS 

Cm  infile  read  from  this  file 

Cio  ikey , 1  me , lenl ine , err , eo f  results  of  readfl 

C3C0MM0N  BLOCKS 

Cio  readc  holds  line  counter 

Cin  flclass  holds  class  list 

CfCALLER  flbldr 
CtMETHOD 

C  get  label  off  line,  split  rest  of  line  into  class  names 
C  process  class  names  by  adding  force  levels  of  eachclass 
C  mentioned  to  the  aprropriate  prgbuf.  When  done  with  all 
C  classes  from  line,  process  next  line  untill  it  is  not  a 
C  continuation  line 
Ct# 
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C  B6WRIT*** ***********************************  ********* 

SCONTROL  check-3, segment-BGRP 
SUBROUTINE  BGWRIT 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CtPURPOSE  write  pagebuf  to  ioutfl 
CtAUOIT  HISTORY 

C  MEMutchler  28-may-83  AUTHOR 

CtTYPE  battle  group  level  io  routine 

CtFORMAL  PARAMETERS  none 
CtCOMMON  BLOCKS 

Cio  flage  holds  pagebuf 

Cm  flhead  holds  output  text  specs 

CtMETHOO 

C  write  text  to  buf  keeping  track  of  lines  used 
C## 


C  BGWTOP****************************** ****************** 

SCONTROL  check«3 , segnent*BGRP 
SUBROUTINE  BGWTOP 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  »** 

C*  ***  ABSTRACT  *** 

CfPURPOSE  writes  title  line  and  period  header  to  pagebuf 
CtAUDIT  HISTORY 

C  MEMutchler  28-may-83  AUTHOR 

CtTYPE  fore  level  io  routine 

CftFQRMAL  PARAMETERS  none 
CtCOMMON  BLOCKS 

Cio  flpage  holds  pagebuf 

Cio  flhead  header  text 

CSMETHOO 

C  write  text  to  buf  keeping  track  of  lines  used 
CSLOCAL  VARIABLES 
C  none 

C«# 
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C  B  TLGRP  *****»*******♦**#*##*##*#*****##****#*********»* 

SCONTROL  check-3 , segment-BGRP 

SUBROUTINE  BTLGRP< INFILE , IKEY , LINE .LENLINE , ERR , EOF ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

% INCLUDE  INCPAR 
XINCLUOE  FLPMTR 

INTEGER  INFILE, IKEY, LENLINE 
LOGICAL  EOF, ERR 
CHARACTER  LINE*LLINE 

C*  ***  ABSTRACT  ♦** 

C3PURP0SE  process  a  bgroup  line  from  irtfiie  to  get  forcelevi 
C#HIST0RY 

C  MEMutchler  27-JUN-83  AUTHOR 

CtTYPE  process  battlegroup  force  level  output  control  file 
CfFORMAL  PARAMETERS 

Cm  infile  read  from  this  file 

Cio  ikey, line, lenline, err ,eof  results  of  readfl 

CfCQMMON  BLOCKS 

Cio  rea<fc  holds  line  counter 

Cin  flclass  holds  class  list 

CtCALLER  flbldr 
CtMETHOD 

C  get  groupname  off  line,  split  rest  of  line  into  group  labeKto 
C  be  printed  on  actual  output  )  .priority  with  which  this  group  must 
C  be  filled,  focre  level  to  achive,  date  this  info  begins  at, 

C  date  this  info  ends  wtih,  process  next  line  untiil  it  is  not  a 

C  continuation  line 

C## 


C  FFLT8L<  ERR  . . * . . . ** 

^CONTROL  check“3 , segment*FLB6 
SUBROUTINE  FFLTBL(ERR) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

LOGICAL  ERR 

C»  ***  ABSTRACT  *** 

CtPURPOSE  fill  in  the  force  level  table  (fltabi)  buffer 
C  giving  ships  available  each  period 
CSAUDIT  HISTORY 

C  MEMutchler/MCarey  23-may-83  AUTHOR 

CtFORMAL  PARAMETERS 
C  none 

Cf COMMON  BLOCKS 

Cio  readc  number  of  last  input  file  line,  for  lwarn 

Cin  flcons  file  and  field  names  for  relation  access 

Cin  fldecm 

Cin  f 1 r  j  ob 

Cin  shlife 

Cin  scenar  current  scenario  info 

Cout  fltabls  output  table,  ships  by  period  and  program 

CtCALLER  FLREPORT 

CtMETHOO 

C  for  each  of  the  alphabetized  ship  classes 
C  get  the  standard  service  lIFe  of  any  in  the  class 
C  for  each  hull  t  in  the  class 

C  search  the  construction  relations  for  first  construction 
C  search  for  first  decommisionings 

C  search  for  all  other  construction  and  decommisionings 
C  search  job  relation  for  all  jobs 

C  keep  job  info  IF  it  adds  to  service  lIFe  or  in  major  job  list 

C 

CftLOCAL  VARIABLES 

C  endllF  true  IFf  no  decommision  date  found  for 


C  a  recomissioning 

C  •  maxcons  max.  t  of  contructions  done  to  one  ship 

C  maxjob  max  f  of  repair  jobs  done  to  one  ship 

C  jbllFe  years  added  to  lIFe  due  to  this  job 

C  cnllFe  years  added  to  lIFe  due  to  this  construction 

C  condat  date  of  construction  delivery 

C  decdat  date  of  decommi sioning 

C  jbdat  date  of  begining  of  repair  job 

C  jedat  date  of  ending  of  repair  job 

C  invbuf  inventory  buffer 

C  prgbuf  program  buffer 

C  majjob  true  IF  job  i  is  one  of  Isiton 

C  conpro  construction  is  program  not  inventory 

C  jobpro  repair  job  is  program  not  inventory 

Cff 
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C  FLADPG** *********** . * . * . ******** . 

JCONTROL  check*3 , segment*FLRP 

SUBROUTINE  FLAOPG*  TOTARRY , LLAB , RLAB , TOTALIN  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

^INCLUDE  FLPMTR 
XINCLUOE  FLPERD 
%  INCLUDE  FLHEAO 

CHARACTER  LLAB*LENLLB ,  RLA8*LENRLB 
INTEGER  TOTARRY(MXPERD) 

LOGICAL  TOTALIN 

C*  ***  ABSTRACT  *** 

CtPURPOSE  write  total  line  to  pagebuf 
Cf AUDIT  HISTORY 

C  MEMutchler  28-may-83  AUTHOR 

CSTYPE  force  level  10  routine 
CtFORMAL  PARAMETERS  none 
CtCOMMON  BLOCKS 

Cio  flpage  holds  pagebuf 

Cin  flhead  holds  output  text  specs 

Cin  fltotl  holds  line  to  be  output 

Cin  flperd  holds  period  info 

C#METH00 

C  write  text  to  buffer  keeping  track  of  lines  used 
C«# 
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C  FLBRPT**************»*»* »****••** ********************* 

SCONTROL  check*3, segment*FLRP 
SUBROUTINE  FLBRPT  (ERR) 

C*  #**  FORMAL  PARAMETER  DECLARATIONS  *** 

LOGICAL  ERR 

C*  ***  ABSTRACT  *** 

CfPURPOSE  use  output  control  file  and  fltabl  to  create 
C  force  level  report  file 

CfAUDIT  HISTORY 

C  MEMutchler  23-may-83  AUTHOR 

CtTYPE  force  level  report  utility 

CtFORMAL  PARAMETERS 
Cin  err  error  flag 

CtCOMMON  BLOCKS 

Cin  incpar  global  parameters 

Cin  charcon  output  control  file  keywords 

Cin  readc  holds  line  number  last  read 

Cio  fltotl  holds  otaling  arrays 

Cin  fltabls  holds  force  level  tables  for  each  program 

CfCALLER  flreport 

CiMETHOD 

C  process  output  control  file  by  line  creating  the  structure 
C  for  a  force  level  report  use  values  in  fltabls  for  data. 

C  Determine  which  type  of  line  just  read  from  output 
C  control  file  and  process  accordingly 
C  START  read  everyline  between  a  START  and  STOP  line 
C  only  title  and  program  labels  are  acknowledged 

C  prior  to  the  initil  start 

C  +  this  is  a  continuation  of  the  text  of  last  line,  only 

C  for  JOB  or  TYPE  lines 

C  TITLE  center  text  on  the  top  of  each  report  page 
C  must  be  read  before  inital  start 

C  PROGLB  text  is  the  progra  label .program  start  date 
C  at  least  one  must  be  read  before  start 

C  BTOT  begin  a  new  total  array  of  beginname*text 
C  add  a  new  totaling  array 

C  ETQT  end  the  last  total  array  begun , t ex t-name , left 
C  label, lght  label,  be  sure  name*beginname 

C  write  report  lines  to  report  file 

C  delete  last  totaling  array 

C  EITOT  end  the  last  total  array  begun,  text-name , left 
C  label, right  label,  be  sure  name*begmname 

C  don’t  o  a  page  feed  after,  delete  totaling  array 

C  TYPE  text»typename, classes  to  make  up  type;  defines  a  type 
C  get  values  from  force  level  tables  for  program  types 

C  and  add  class  levels  togeather 

C  JOB  text“typename, jobname, job  as  known  to  RELATE, classes 
C  in  type;  total  all  job  done  to  each  clas.3  for  programs 

CtLOCAL  VARIABLES 

C  protot  program  totaling  arrays 

C## 
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C  FLCHK1 ***#**###*#**#***#*****#**###*♦******##* ******** 

$CONTROL  check.*3,segment*FLRP 

LOGICAL  FUNCTION  FLCHK1 < SCEN1 , SCEN2 ,CLAS1 ,CLAS2 , INTI , INT2  ) 
C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER* 12  SCEN1 , SCEN2 
CHARACTER* 10  CLAS1.CLAS2 
INTEGER  INTI , INT2 

C*  ***  ABSTRACT  *** 

CtPURPOSE  make  sure  all  *1**2 
C#AUOIT  HISTORY 

C  MEMutchler  31  may  83  AUTHOR 

CtTYPE  force  level  utility 

CiFORMAL  PARAMETERS 

Cin  seen  scenario  name 

Cin  clas  class  name 

Cin  int  number 

Cou  flchkl  true  if  all  *1  ■  *2 

C  check  each  pair 

C#t 
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.  v  -r  -r,  - 


V  V  V1  V' 


f  ;  r  ■  ■  r- 


C  . . . . * . 

^CONTROL  check*3 , segment“FLB6 

LOGICAL  FUNCTION  FLCHK2< SCEN1 ,SCEN2 ,CLAS1 ,CLAS2, 

+  INTA1 , INTA2, INTB1 , INTB2  > 
c*  ***  FORMAL  PARAMTER  DECLARATIONS  *** 

CHARACTER* 12  SCEN1.SCEN2 
CHARACTER* 10  CLAS1.CLAS2 
INTEGER  INTA1 , INTA2 , INTB1 , INTB2 

C#  ***  ABSTRACT  *** 

CfPURPOSE  make  sure  all  *1«*2;  used  for  end-of-data  detection 
C  when  reading  along  a  RELATE  index 
C#  HISTORY 

C  MEMutchler  31  may  83  AUTHOR 

CfTYPE  force  level  utility 
CfFORMAL  PARAMETERS 


Cin  seen 

Cin  clas 

Cin  int 

Cou-  flchk2 

CfMETHOO 
C  check 
Cf# 


scenario  name 
class  name 
number 

true  if  all  *1 


each  pair 


*2 
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C  FLCHK3***************************** ******************* 
SCONTROL  check*3 , segmentmFLBG 

LOGICAL  FUNCTION  FLCHK3< SCEN1 , SCEN2 , CLAS1 , CLAS2 , 

+  INTA1 , INTA2 , JOBID1 , JOB 102  ) 

C*  ***  FORMAL  PARAMTER  DECLARATIONS  *** 

CHARACTER* 12  SCEN1 , SCEN2 
CHARACTER*10  CLAS1 , CLAS2 
CHARACTER’S  J08ID1 , J0BID2 
INTEGER  INTA1 , INTA2 

C*  ***  ABSTRACT  *** 

CtPURPOSE  make  sure  all  *1**2;  for  RELATE  end-of-data-group 
C  detection. 

C#  HISTORY 

C  MEMutchler  31  may  83  AUTHOR 

C#TYPE  force  level  utility 

C INFORMAL  PARAMETERS 

Cin  seen  scenario  name 

Cin  clas  class  name 

Cin  int  number 

Cou  flchk2  true  if  all  *1  ■  *2 

CtMETHOO 

C  check  each  pair 
C«# 
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C  FLCLAS  it********************************************* 

SCONTROL  check“3 , segment»FLBG 

SUBROUTINE  FLCLAS(  LINE , LENLINE , CONTLN , ERR  ) 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  LENLINE 
L06ICAL  ERR 

CHARACTER  LINE*( LENLINE ) 

LOGICAL  CONTLN 

C*  ***  ABSTRACT  »** 

CfPURPOSE  parse  the  text  part  of  a  type  line  from  the  format 
C  file,  adding  class  names  to  the  list  of  class  names 

C  IF  not  yet  present 

CSAUDIT  HISTORY 

C  MEMutchler  17-may-83  AUTHOR 

CtTYPE  parse  output  control  file 
CfFORMAL  PARAMETERS 

Cm  line  the  text  following  the  keyword  in  the  output  control 

C  file 

Cm  lenline  length  of  theline 

Cin  contln  true  IF  this  was  a  continue  line, else  false 

CfCOMMON  BLOCKS 

Cio  classes  holds  class  list 

Cin  incpar  global  parameter  list 

Cm  charcon  constant  strings 

Cin  readc  holds  line  number  just  read 

CltCALLER  parsoc 

CSMETHOD  remove  first  phrase  if  not  contln.  Parse  line,  one 
C  phrase  at  a  time,  adding  to  list  if  possible. 

CtLOCAL  UARIABLES 

C  string  unparsed  prt  of  line 

C  lstring  deblanked  length  of  string 

C  clname  one  class  name 

Ctf 
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C  FLCLQS****** ******************************  *********** 
SCONTROL  check-3 , segment-FLBG 
SUBROUTINE  FLCLOS 

c*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  ♦** 

CfPURPOSE  close  files  and  relations  only  needed  by  flrept 
CtAUDIT  HISTORY 

C  MEMutchler  19-may-83  AUTHQ 

CtTYPE  clean  up 

CtFORMAL  PARAMETERS 
C  none 

C#COMMON  BLOCKS 

Cm  flioc  fortran  10  units 

Cin  fldecm  relation  nanes 

Cm  flrjob 

Cm  shlife 

CfCALLER  flrept 

C3METH0Q 

C  Calls  to  filcls  and  rvclos;  also  call  lpsend  to  start 
C  printing, 

C## 
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C  FLDECR*** **********  **********  ***************  ********* 

SCONTROL  check“3 , segment"FLRP 

SUBROUTINE  FLDECR< BEGDATE , ENOOATE , PROGRAM  ) 

C*  *♦*  FORMAL  PARAMETER  DECLARATIONS  ** 

XINCLUOE  FLPMTR 
T.INCLUOE  FLPERD 

INTE6ER*4  BEGDATE , ENDDATE 

LOGICAL  DEARLY 

INTEGER  PROGRAM  (l.MXPERD) 

C*  ***  ABSTRACT  ** 

CtPURPOSE  decrement  program  total  for  period  from  begdate  t 
C  enddate 

C4AUDIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CKTYPE  decrement  due  to  dates 
C4F0RMAL  PARAMETERS 

Cin  begdate  repair  job  begimng  date 

Cin  enddate  repair  job  ending  date 

Cio  program  holds  current  program  totals 

CfCOMMON  BLOCKS 

Cin  flperd  first  day  of  each  period 

CKMETHOD 

C  get  first  period  after  begindate,  get  last  period  before 
C  enddate.  Decrement  program  between  these  two  priods 
C#t 


C  FLGLIF  *********************************************** 
SCONTROL  segment»flbg 

SUBROUTINE  flglif(stanlf, stun it, ncom, condat, dec da t , 

1  addl i f , addunt ,njob,joblif,jobunt, 

2  j edate , err  ) 

O  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  ncom , n job , s tanl f , addl i f<  ncom  ), job  1 i f ( nj ob  ) 
integer *4  condat ( ncom ), dec da t ( ncom  ) , jedate<  njob  ) 
character*S  stunit, ad dunt<nc on  ),jobunt(njob) 
logical  err 

C*  ***  ABSTRACT  *** 

C4PURP0SE  get  last  deconnissioning  date  for  snip 
C3AUDIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 


C 

MSCarey 

28-apr — 84  Major  logic  change  to  use 

c 

time  units  in  calculations 

CtFORMAL 

PARAMETERS 

Cm 

stanl  f 

standard  .ife  of  ship 

Cm 

stunit 

in  these  units 

Cm 

ncom 

number  of  commissionings  ship  has 

Cm 

condat 

commissioning  dates 

C 10 

deedat 

deactivation  dates;  output  in  decat(ncom) 

Cm 

addl 1 f 

amount  of  life  added  each  commissioning 

Cm 

addunt 

in  these  time  units 

Cm 

n  job 

number  of  repair  jobs  ship  has  had 

Cm 

jobli f - 

amount  of  life  added  by  each  repair  job 

Cm 

j  obunt 

in  these  time  units 

Cm 

j  edate 

end  date  of  each  repair  job 

Cout 

err 

true  if  any  j edate>decdat ( ncom  ) 

CltCOMMON 

BLOCKS 

C  none 

C4CALLER  ffltbl 
C4METHQD 

C  Obtain  the  nunber  of  days  used  during,  each  conni 3 5 1 oni ng . 

C  Obtain  the  retirement  date  which  would  have  occurred  if 

C  there  was  only  one  conni ss loning ,  and  if  there  was  no 

C  life  added  by  any  job,  using  the  standard  1 1 f et ime/uni t s  . 

C  Find  the  nunber  of  days  represented  by  this  lifetime. 

C  Find  the  nunber  of  days  between  the  first  activation  and 

C  the  last  activation,  and  compare  this  to  the  nunber 

C  of  days  used  during  active  periods  to  get  the  amount  of 

C  tine  spent  in  mothballs.  Set  a  final  deactivation  date. 

C  Then  cycle  through  the  repair 

C  jobs  and  push  out  this  date  by  the  amount,  of  time  added 

C  by  each  job.  Then  cycle  through  the  commissioning  jobs 

C  and  do  the  same.  The  result  is  a  computed  deactivation 

C  date  based  on  (possibly)  different  time  units  used  to 

C  to  specify  the  various  life-length  increments. 

C3LQCAL  UARIABLES 

C  comusd  days  of  life  used  up  by  commissioned  time 

C  mthadd  days  of  life  'added'  by  time  spent  in  mothballs 

C  rawday  length  of  standard  life  in  days 

C  rawdat  raw  retirement  date 

C  deact  working  retirement  date 
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C  FLINCL****** . ***** . ***** . * . * 

SCQNTRQL  check*3,segment»FLBG 

SUBROUTINE  FLINCL(STR,LSTR,LSIZE,MLSIZE,LIST,ELSIZE, 

1  I INDEX, ERR) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  ♦** 

CHARACTER  STR*(ELSIZE)  ,LIST*( ELSIZE X MLSIZE  ) 

LOGICAL  ERR 

I NTESER  I INDEX , LSTR , LSI ZE , MLS I ZE , ELS I ZE 
C*  *♦*  ABSTRACT  *** 

CfPURPOSE  include  string  in  a  list 
Cf AUDIT  HISTORY 

C  MEMutchler  8  JUN  83  AUTHOR 

CiTYPE  force  level  report  generator  utility 

CSFORMAL  PARAMETERS 

CIN  STR  NAME  TO  GO  ON  LIST 

CIN  LSTR  NUMBER  OF  CHARS  IN  STR 

CIO  LSIZE  NAME-LIST  SIZE.  WILL  BE  INCREMENTED  IF  STR  NOT 

C  ALREAOY  ON  THE  LIST. 

CIN  MLSIZE  MAX  ALLOWED  UALUE  OF  LSIZE 
CIO  LIST  NAME-LIST 

CIN  ELSIZE  MAX  CHARS  IN  EACH  ELEMENT  OF  ’LIST’ 

COUT  I INDEX  INDEX  OF  STR  ON  LIST 

CtCOMMON  BLOCKS 

Cin  readc  f  of  line  last  read  from  input  file 

CSMETHOD 

C  CONSTRUCTS  LIST  ’LIST*  OF  NAMES 
C*# 


C  FLINCR . * . . . . . 

^CONTROL  check-3, segment«FLB6 

SUBROUTINE  FLINCR< BEGOATE , ENOOATE , PROGRAM  > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

XINCLUDE  FLPMTR 
XINCLUOE  FLPERD 

INTEGER*4  BEGOATE, ENDOATE 

LOGICAL  OEARLY 

INTEGER  PROGRAM  (l.MXPERO) 

C*  ***  ABSTRACT  •** 

C4PURP0SE  increment  program  total  for  period  from  begdate  to 

C  enddate 

CJAUOIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CtTYPE  increment  due  to  dates 

CSFORMAL  PARAMETERS 

Cin  begdate  begining  date 

Cin  enddate  ending  date 

Cio  program  holds  current  program  totals 

CfCOMMON  BLOCKS 

Cin  flperd  .first  day  of  each  period 

C4METH00 

C  get  first  period  after  begindate,  get  last  period  before 
C  enddate.  Increment  program  between  these  two  periods 
Ctt 
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C  FLJOB . * . 

SCONTROL  check*3,segment*FLBG 

SUBROUTINE  FLJOB ( INF ILE , IKEY , LINE , LENLINE , ERR , EOF ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

XINCLUOE  INCPAR 
XINCLUDE  FLPMTR 

INTESER  INFILE, IKEY, LENLINE 
L06ICAL  EOF, ERR 
CHARACTER  LINE*LLINE 

C*  ***  ABSTRACT  *** 

CtPURPOSE  get  the  total  effect  on  classes  seen  on  one  job 
C  line  of  the  output  control  file  as  performed  by  periods 
Cf AUDIT  HISTORY 


C 

CtTYPE 


MEMutchler 


3l-may-83  AUTHOR 


fill  total  array  by  processing  ocfile 


holds  line  counter 


CtFORMAL  PARAMETERS 

Cin  infile  read  from  this  file 

Cio  ikey, line, lenline, err, eof  results  f  readfl 

CfCOMMON  BLOCKS 

Cio  readc  holds  line  counter 

CtCALLER  flbldr 

CtMETHOD 

C  get  label  and  jobname  off  line  split  rest  of  line  into  classes 
C  process  the  job  by  total in  for  each  period  how  many  times 
C  that  job  was  performed  on  any  of  the  classess  mentioned 
C  When  done  processing  all  of  the 

C  classes  from  line,  process  next  line  untill  it  is  not  a 
C  continuation  line 


>6 


C  FLNPER******* . . . * . 

SCONTROL  check«3 , segment*FLB6 
SUBROUTINE  FLNPER<  ERROR ) 

C*  *«*  FORMAL  PARAMETER  DECLARATIONS  ♦** 

LOGICAL  ERROR 

C*  *#*  ABSTRACT  *** 

CtPURPOS  determine  nperiod  and  fill  in  datper( 1 .. nperiod  ) 

C  and  makes  up  period  header 

C  MEMutchler  31-may-83  AUTHOR 

CfTYPE  report  utility 

Cf COMMON  BLOCKS 

Cm  value  menu  parameter  values 

Cin  pvdecl  menu  parameter  declarations 

Cin  pveqiv  menu  parameter  equivalences 

Cou  flperd  period  info 

CtCALLER  FLINIT 

C3METH00 

C  Calls  to  a  subsidiary  routines,  depending  on  period  length 
C  Note — implemented  before  standard  TDOATE  ALIAS  date  utilities 


C  . . * . *** . ***** . 

$CQNTROL  check*3, segment"FLBG 

SUBROUTINE  FLNXTP< ANYDAT , PEROAT  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER*4  ANYOAT, PEROAT 
LOGICAL  DEARLY 

C*  •**  ABSTRACT  *** 

CSPURPOSE  get  first  datper  followng  anydat 
CtAUDIT  HISTORY 

C  MEMutchler  2-june-83  AUTHOR 

CfTYPE  force  level  date  utility 

C4F0RMAL  PARAMETERS 

Ci n  anydat  relate  clarified  *4  date 

Cou  perdat  first  datein  datper  following  anydat 

CtCOMMON  BLOCKS 

Cin  flperd  holds  period  info 

CtCALLER  flglif 

CfMETHOD 

C  loop  through  datper  array  untill  a  date  .ge.  anydat  is  found 
CtLOCAL  UARIALES 
C  iperd  period  index 


C  . . ***** . * . 

•CONTROL  check*3, segment»FLBG 

SUBROUTINE  f lpars( line, leniin, list , lenlst .mxlchr ,nxnun, nun, 
1  tonany , tolong ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

character** leniin )  line 
characters mxlchr )  list(mxnum) 
integer  lenlin,mxnum,num, lenlst* mxnum  ) 
logical  tonany , tolong 

C*  ***  ABSTRACT  *** 

CtPURPQSE  Parses  an  input  string  into  substrings  delimited 
C  by  connas. 

Ct AUDIT  HISTORY 

C  MSCarey  03-jun-83  AUTOR 

CtFORMAL  PARAMETERS 

Cin  line  string  to  be  parsed 

Cin  leniin  length  of  line  in  chars 

Cout  list  list  of  output  substrings 

Cin  mxlchr  nax  length  of  any  substring 

Cout  lenlst  length  of  each  substring 

Cin  nxnun  naxinun  number  of  substrings  returnable 

Cout  nun  nunber  of  substrings  found 

Cout  tonany  true  if  more  than  mxnum  substrings  found 

Cout  tolong  true  if  a  substring  longer  than  mxlchr  found 

C*C0MM0N  BLOCKS 

C  none 

C*CALLER  various 

CtMETHOO 

C  Look  for  commas  and  extract  the  intermediate  text. 

Cf# 


C  FLPDAY***** . . . ***** . ****** 

•CONTROL  check-3, segment-FLBG 
SUBROUTINE  FLPQAY( ERROR ) 

C*  ♦*«  FORMAL  PARAMETER  DECLARATIONS  **♦ 

LOGICAL  ERROR 

c*  ***  ABSTRACT  *** 

CtPURPOSE  determine  nperiod  and  fill  in  datper< 1 . .nperiod ) 

C  and  makes  up  period  header  when  period  length-day 

CtAUOIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CfTYPE  report  utility 

CfCOMMON  BLOCKS 

Cin  pvalue  menu  parameter  values 

Cin  pvdecl  menu  parameter  declarations 

Cin  pveqiv  menu  parameter  equivalences 

Cou  flperd  period  info 

CfCALLER  FLINIT 

CtMETHOO 

C  Low-level  date  utility  calls  and  straight  string  concats. 
CtS 
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C  FLPMTH* . . . . . 

SCONTROL  check-3, segment-FLBG 
SUBROUTINE  FLPMTHt ERROR > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

L08ICAL  ERROR 

C*  ***  ABSTRACT  *** 

C#PURPOSE  determine  nperiod  and  fill  in  datper( 1 . . nperiod  ) 

C  and  makes  up  period  header  when  period  length-year 

CtAUDIT  HISTORY 


c 

MEMutchler  31-may-83  AUTHOR 

v- 

CtTYPE 

report 

utility 

CtCOMMON 

BLOCKS 

Cin 

pvalue 

menu  parameter  values 

mm  »  ■* 

Cin 

pvdecl 

menu  parameter  declarations 

1 

Cin 

pveqiv 

menu  parameter  equivalences 

>’  1 

Cou 

f Iperd 

period  info 

CtCALLER 

FLINIT 

CSMETHOO 

C  Lou-level  date  utility  calls  and  straight  string  concats.  >^3 

ct#  j! 
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C  FLPQTR******** . * . ******** 

$CONTRQL  check“3, segment*FLB6 
SUBROUTINE  FLPQTR< ERROR > 

C*  *«  FORMAL  PARAMETER  DECLARATIONS  *** 

LOGICAL  ERROR 

C*  *•*  ABSTRACT  *«* 

CfPURPOSE  determine  nperiod  and  fill  in  datper< 1 . .nperiod  ) 

C  and  makes  up  period  header  when  period  length»year 

Cf AUDIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CtTYPE  report  utility 

C*COMMON  BLOCKS 

Cin  pvalue  menu  parameter  values 

Cin  pvdecl  menu  parameter  declarations 

Cin  pveqiv  menu  parameter  equivalnces 

Cou  flperd  period  info 

CfCALLER  FLINIT 

CfMETHOO 

C  Lou-level  date  utility  calls  and  straight  string  concats. 
C## 
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c  FLPR6N* . * . . . . . 

SCONTROL  check»3, segment*FLBG 

INTEGER  FUNCTION  FLPRGN(APPRQP, AWARD, DELIU  ) 
c#  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTE6ER*4  APPROP , AWARO.DELIU 

C*  ***  ABSTRACT  *** 

CtPURPOSE  get  program  number  this  will  fall  in  according 
C  to  appropriate  date 

Cf AUDIT  HISTORY 

C  MEMutchler  31-may-B3  AUTHOR 

CTYPE  force  level  utility 

CSFORMAL  PARAMETERS 

Cin  approp  appropriat ion  date 

Cin  award  award  date 

Cin  deliv  delivery  date 

CtCOMMON  BLOCKS 

Cin  pvalue  menu  parameter  values 

Cin  pvdecl  menu  parameter  declarations 

Cin  pvequiv  menu  parameter  equivalences 

Cin  fltabls  program  begining  dates 

CtCALLER  ffltbl 

C*METHOD  determine  which  date  to  use  to  determine  program 
C  and  use  it  with  begining  program  dates  to  find  program 
C  the  date  falls  in. 


C  FLPRNT . ******* . ••••••*•• . 

$CONTROL  check»3 , segment“FLB6 
SUBROUTINE  FLPRNT 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CtPURPOSE  print  report  to  daisy  or  lp 
CtAUDIT  HISTORY 

C  MEMutchler  lS-nay-83  AUTHOR 

C#FORMAL  PARAMETERS 
C  none 

CfCOMMON  BLOCKS 

Cin  flioc  flrp  unit  numbers 

C#METHOD 

C  The  sequential  file  contains  the  actual  force  level  report  to 
C  be  displayed  using  SUBROUTINE  FLPRNT.  It  contains  the  actual 
C  lines  of  text , tit les , non-print ing  comments,  and  page  feed  markers. 

C  It  must  be  made  permanent  IF  it  is  to  be  saved,  and  may  be  edited 
C  IF  desired.  Print  all  printable  lines  literally,  and  use  page  ejec 
CtLOCAL  VARIABLES 

C  line  a  line  of  text  to  be  printed 

Of# 
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C  FLP  ROC****  *♦■****■*  **************  ••••••»•*«•»*••*•#«•*•• 

SCONTROL  check*3 , segment*FLRP 
SUBROUTINE  FLPROC( ERROR ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

LOGICAL  ERROR 

C*  ***  ABSTRACT  *♦* 

CfPURPOSE  parse  output  control  file  and  create  an  alphabetized 
C  list  of  each  ship  class  mentioned  on  a  TYPE  line. 

CtAUDIT  HISTORY 

C  MEMutchler  lS-may-83  AUTHOR 

CtTYPE  find  which  classes  are  to  be  examined 
CtFQRMAL  PARAMETERS  non 
C#COMMON  BLOCKS 

Cm  ioc  i/o  file  assignments 

Cm  incpar  global  parameters 

C#CALLER  flreport 

CfMETHOO  Starting  at  top  of  FILE  QCNTRL  look  at  a  line 
C  IF  line  begins  wih  “TYPE"  THEN  extract  class  names  from  line  and 
C  following  lines  begming  with  "  +  add  the  names  to  a 

C  list  of  names  IF  not  already  there.  ELSE  GO  TO  next  line  untill 
C  end  of  file.  Alphabetize  the  list  of  names. 

C#L0CAL  VARIABLES 

C  line  one  line  from  ocfile 

C  lenline  deblanked  length  of  line 

C  eof  true  IFf  end  of  file  ocfile  has  been  read 

C  lenkey  deblanked  length  of  key 

Cf# 
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C  FLPUEK . ****** . •••••***••*• . ********** 

SCONTROL  check»3 , segmentmFLBG 
SUBROUTINE  FLPUEK < ERROR ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

LOGICAL  ERROR 

C*  ***  ABSTRACT  *** 

CfPURPOSE  determine  nperiod  and  fill  in  datper( 1 . . nperiod > 

C  and  makes  up  period  header  when  period  length«ueek 

CtAUDIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CfTYPE  report  utility 

CfCOMMON  BLOCKS 

Cin  pvalue  menu  parameter  values 

Cin  pvdecl  menu  parameter  declarations 

Cin  pveqiv  menu  parameter  equivalences 

Cou  flperd  period  info 

CSCALLER  FLINIT 

CfMETHOD 

C  Lou-level  date  utility  calls  and  straight  string  concats. 


C  FLPYER . ***** . **** . 

SCQNTROL  check»3 , segment*FLBG 
SUBROUTINE  FLPYER< ERROR ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

LOGICAL  ERROR 

C*  ***  ABSTRACT  *** 

CfPURPOSE  determine  nperiod  and  fill  in  datperi 1 . .npeiod > 

C  and  makes  up  period  header  uhen  period  length»year 

CtAUOIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CtTYPE  report  utility 

CtCOMMON  BLOCKS 

Cin  pvdecl  menu  parameter  declarations 

Cin  pveqiv  menu  parameter  equivalences 

Cou  flperd  period  info 

C#CALLER  FLINIT 
CfMETHOD 

C  Lou-level  date  utility  calls  and  straight  string  concats. 


C  FLROCN*** . . . . . 

SCONTROL  check*3, segment-FLBG 

SUBROUTINE  FLRDCN  ( IUNIT, LINE, EOF  ) 

C*  ♦  **  FORMAL  PARAMETER  DECLARATIONS  *** 

% INCLUDE  INCPAR 
^INCLUDE  LPRNTS 

LOGICAL  EOF 
INTEGER  IUNIT 
CHARACTER  LINE*LLINE 

C*  ***  ABSTRACT  *** 

CSPURPOSE  read  from  file  IN  and  keep  track  of  lines  read 
CfAUDIT  HISTORY 

C  MEMutchler  17  JAN  83  AUTHOR 

C  MEMutchler  8  FEB  83  TESTER  (program  treadc  ) 

CtTYPE  mnugen  utility 

CfFORMAL  PARAMETERS 

Cin  iunit  file  number  from  which  to  read 

Cout  line  input  line  read 

Cout  eof  true  iff  eof  read  from  iunit 

CfCOMMON  BLOCKS 

Cin  incpar  global  parameter  statementa 

Cin  reads  holds  iline 

C3METH0D.  An  unformated  read  is  done  from  unit  * 

C  iunit.  EOF  •  false  unless  an  end  of  file  is  read 

C  in  which  case  EOF  «  true.  If  command  file  building 

C  is  in  use,  LINE  is  echoed  to  unit  »  icomfile. 

C  Icount  is  incremented. 

C*L0CAL  VARIABLES 

C  recch  ' X ’  recognition  character  for  comment  card 


C  FLRDLN********* . * . ** . ***** . 

SCONTROL  check*3, aegmentaFLBG 

SUBROUTINE  FLRQLN  ( IUNIT, LINE, EOF  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

X INCLUDE  INCPAR 
XINCLUOE  IOC 

INTEGER  IUNIT 
LOGICAL  EOF 

CHARACTER  LIN£*LLINE,BUFFER*LLINE 
C*  ♦**  ABSTRACT  *** 

CfPURPOSE  read  a  line  from  IUNIT 
Cf AUDIT  HISTORY 

C  MEMutchler  10  JUN  83  AUTHOR 

CtTYPE  flrept  utility 

CSFORMAL  PARAMETERS 

Cin  iunit  unit  number  from  which  to  read 

Cout  line  line  that  was  read 

Cout  eof  true  iff  eof  was  read 

CSCOMMQN  BLOCKS 

Cin  incpar  global  parameter  statement 

Cin  comcfl  holds  command  file  irfo. 

CiMETHOO  An  unformated  read  is  done  from  unit  * 

C  iunit.  EOF  *  false  unless  an  end  of  file  is  read 

C  in  which  case  EOF  •  true.  If  command  file  building 

C  is  in  use,  LINE  is  echoed  to  unit  •  icomfile. 

CtLOCAL  VARIABLES  none 


C  FLREPT . * . * . 

SCONTROL  check»3, segment *FLRP 
PROGRAM  FLREPT 

C*  ♦**  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CtPURPOSE  main  for  force  level  report  generator 
CtAUQIT  HISTORY 

C  MEMutchler  16-MAY-83  AUTHOR 

CfTYPE  main  program 

CiCOMMON  BLOCKS  none 

CtCALLED  BY  menu  system  choice  menu 

CfMETHOO 

C  Initialize  and  open  necessary  relations  and  files. 

C  Parse  output  control  file  creating  an  alphabetized  list  of 
C  all  ship  classes  found  on  type  lines.  Fill  in  force  level  table, 

C  one  row  for  each  ship  class  found,  one  column  for  each  time  period, 
C  as  number  of  ships  built  of  that  class  in  that  time  period  -  number 
C  of  ships  of  that  class  and  period  out  for  major  deactivaing  jobs  or 
C  in  temporary  retirement.  Process  output  control  file  along  with 
C  the  force  level  table  to  build  force  level  report  file. 

C  Print  force  level  report  file. 

OLOCAL  VARIABLES 
C  err  error  flag 
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C  . . * . . . . . 

^CONTROL  check*3, segment *FLSS 

INTEGER  FUNCTION  FLRP6N<  DATE , NCONS , CONDATE  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  NCONS 

INTEGER*4  DATE,  CONDATE( NCONS > 

LOGICAL  DEARLY 

C*  ABSTRACT  *** 

CfPURPOSE  get  program  number  this  will  fall  in  according 
C  to  date 

CtAUDIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CfTYPE  force  level  utility 

C*FORMAL  PARAMETERS 

Cin  date  repair  begiing  date 

CtCOMMON  BLOCKS 

Cn  pvalue  menu  parameter  values 

Cin  pvdecl  menu  parameter  declarations 

Cin  pvequiv  menu  parameter  equivalences 

Cin  fltabls  program  begining  dates 

CSCALLER  ffltbl 
CtMETHOD 

C  use  date  with  begining  program  dates  to  find  program 
C  the  date  falls  in. 


C  FLTYPE******* . *** . * . 

^CONTROL  check»3,segment»FLRP 

SUBROUTINE  FLTYPE< INFILE, IKEY, LINE, LENLINE, ERR, EOF  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  «*« 

X INCLUDE  INCPAR 
XINCLUDE  FLPMTR 

INTEGER  I NF I LE , I KEY , LENL I NE 
LOGICAL  EOF, ERR 
CHARACTER  LINE*LLINE 

C*  ***  ABSTRACT  *** 

CtPURPOSE  process  a  type  line  from  infiie  to  get  forcelevL 
C*AUOIT  HISTORY 

C  MEMutchler  lB-may-83  AUTHOR 

CfTYPE  process  force  level  output  control  file 
CfcFORMAL  PARAMETERS 

Cm  infile  read  from  this  file 

Cio  ikey, line, lenline, err ,eof  results  of  readfl 

CfCOMMON  BLOCKS 

Cio  readc  holds  line  counter 

Cin  flclass  holds  class  list 

Cf CALLER  flbldr 
CiMETHOO 

C  get  label  off  line,  split  rest  of  line  into  class  names 
C  process  class  names  by  adding  force  levels  of  eachclass 
C  mentioned  to  the  aprropriate  prgbuf.  When  done  with  all 
C  classes  from  line,  process  next  line  untill  it  is  not  a 
C  continuation  line 


C  FLWRIT**** . . . . . 

iCONTROL  check*3, 3egment«FLB6 
SUBROUTINE  FLWRIT 

C»  ***  FORMAL  PARAMETER  DECLARATIONS 

C»  ***  ABSTRACT 

CtPURPOSE  write  pagebuf  to  ioutfl 
CtAUDIT  HISTORY 

C  MEMutchler  28-nay-83  AUTHOR 

CtTYPE  force  level  io  routine 
CiFORMAL  PARAMETERS  none 
C#COMMON  BLOCKS 

Cio  flage  holds  pagebuf 

Cin  flhead  holds  output  text  specs 

CtMETHOD 

C  write  text  to  unit  keeping  track  of  lines  used 
Ct# 


#«  • 
#*  * 


C  FLWTOP . . . 

4CQNTROL  check-3, segment-FLRP 
SUBROUTINE  FLWTOP 

C*  »*♦  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *** 

CtPURPOSE  writes  title  line  and  period  header  to  pagebuf 
C#AUDIT  HISTORY 

C  MEMutchler  28-may-83  AUTHOR 

CtTYPE  fore  level  io  routine 

C*FORMAL  PARAMETERS  none 
CfCOMMON  BLOCKS 

Cio  flpage  holds  pagebuf 

Cin  flhead  holds  header  text 

CtMETHOD 

C  write  text  to  buf  keeping  track  of  lines  used 


C  FNDPRD*** »•***»*** . ******** . * . *** 

$CONTROL  check»3, segment*FL8G 

SUBROUTINE  FNDPRD  (  DATE,  PERIOD  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  PERIOD 
INTE6ER*4  DATE 
LOGICAL  OEARLY 

C*  ***  ABSTRACT  *** 

CfPURPOSE  find  number  of  period  to  which  date  belongs 
C  like  the  gpern  utility 

C4AUDIT  HISTORY 

C  MEMutchler  31-may-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  date  date  to  look  for 

Cout  period  number  of  period  to  which  date  belongs 

CfCOMMON  BLOCKS 

CIN  flperd  first  date  each  period 

C4METH0D  search  through  datper  array  untill  datper  gt  date 

C  period  *  iper 

Cf# 
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C  SET JOB . 

SCQNTROL  check»3, segment *FLBG 

SUBROUTINE  SET JOB  <  CLASS,  JOBTYP,  TOTAL  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

XINCLUOE  FLPMTR 
XINCLUOE  FLPERD 

CHARACTER  CLASS* 10 
CHARACTER  J0BTYP*6 
INTESER  TOTAL(MXPERD) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  find  all  ships  in  this  class  having  a  repair  of  this 
Ct  type  and  adds  them  all  up  by  period 

C  MEMutchler  IS  jn  83  AUTHOR 

CtTYPE  get  info  from  relate  for  force  level  report  generator 
C4F0RMAL  PARAMETERS 

Cin  class  class  name  to  find  repairs  for 

Cot  total  number  of  ships  repaired  in  each  period 

CfOMMON  BLOCKS 

Cin  flrjob  relate  repair  relation  info 

CfCALLER  f 1 job 

C*METH0D 

C  get  repair  job  schedule  record  for  latest  data  date 


C*f 


C  GETLIF . * . 

^CONTROL  check-3, segment-FLBG 

SUBROUTINE  GETLIF(  CLASS ,  LIFINO  , ERR.LIFUNT ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER  LIFUNT*6 .CLASS* 10 
LOGICAL  ERR 
INTEGER  LIFINO 

C*  *♦*  ABSTRACT  *** 

CtPURPOSE  find  standard  life  of  all  ships  in  the  class 
CiAUOIT  HISTORY 

C  MEMutchler  31  MY  83  AUTHOR 

CfTYPE  get  info  from  relate  for  force  level  report  generator 
C#FORMAL  PARAMETERS 

Cin  class  class  name  to  find  life  for 

Cot  lifind  standard  LIFe  IN  Oays 

Cout  lifunt  tine  units  life  duration  is  in 

CfOMMON  BLOCKS 

Cm  shlife  lifetimes  for  all  classes 

C#METHOD 

C  get  standard  lifetime  for  latest  data  date 
C## 
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C  6MAKUP******** . * . ****** . . 

SCONTROL  check**3 ,  segment*BGRP 

SUBROUTINE  GMAKUP< INPTR, NEXTPTR, FINDX, NUMNEED  > 

O  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  INPTR , NEXTPTR , FINDX , NUMNEED 
C*  ***  ABSTRACT  *** 

CtPURPOSE  get  the  record  from  bgmakup  at  inptr 
CtAUDIT  HISTORY 

C  MEMutchler  29-JUN-83  AUTHOR 

CtTYPE  battlegroup  io 

CtFORMAL  PARAMETERS 
Cin  inptr  get  this  record 

Cou  nextptr  ptr  to  next  record  needed  for  function  makeup 

C  “0  if  no  more  there  for  function 

Cou  findx  index  into  fdefine  for  this  funtion  needed  by 

C  makeup 

Cou  numneed  number  of  this  function  needed  by  group  makeup 

CfCOMMON  BLOCKS 

CIN  gpmkup  holds  records  to  read 

CiMETHOD 

C  Transfer  data  from  the  bgmakeup  array  to  the  arguments. 

C## 
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C  PAR2LN******************************* #*****♦*#*#♦****♦ 

SCQNTROL  check*3 , segment*FLBG 

SUBROUTINE  PAR2LN( STRN , LLIN , HAF 1 , LHAF 1 , HAF2 , LHAF2 , ERR  ) 
O  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  LLIN, LHAF 1.LHAF2 
LOGICAL  ERR 

CHARACTER  STRN*( LLIN  ) ,  HAF1 *< LHAF1  ) ,  HAF2*( LHAF2  ) 

C#  ***  ABSTRACT  *** 

CtPURPOSE  split  line  into  two  parts  seperated  by  a  comma 
CtAUDIT  HISTORY 

C  MEMutchler  27-may-83  AUTHOR 

CfTYPE  character  utility 

C*F0RMAL  PARAMETERS 

Cin  line  string  to  be  split 

Cin  llin  length  of  string 

Cou  hafl  put  first  part  here 

Cou  lhafl  length  of  hafl 

Cou  haf2  put  second  part  here 

Cou  lhaf2  length  of  haf2 

CtCOMMON  BLOCKS 

Cin  charcon  character  constants 

CtMETHOD 

C  find  a  comma  and  split  line  by  that 
CfLOCAL  VARIABLES 
C  i 

Ctt 


index  of  comma 


C  PAR3LN* ********** . * . 

JCONTROL  check»3 ,  segment*FLBG 

SUBROUTINE  PAR3LN<  LINE , LLIN , PRT1 , LPRT 1 , PRT2 , LPRT2 , 

+  PRT3,LPRT3,ERR> 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  LLIN,LPRT1,LPRT2,LPRT3 
LOGICAL  ERR 

CHARACTER  LINE*( LLIN ) ,PRT1*<  LPRT1 > ,PRT2*( LPRT2 ) ,PRT3*( LPRT3 > 
C*  ***  ABSTRACT  *** 

CtPURPOS  split  line  into  three  parts  seperated  by  a  comma 
CtAUOIT  HISTORY 

C  MEMutchler  27-may-83  AUTHOR 

CtTYPE  character  utility 
CfFORMAL  PARAMETERS 


Cin 

line 

string  to 

be  split 

Cin 

llin 

length  of 

string 

Cou 

prt  1 

put  first 

part  here 

Cou 

lprt  1 

length  of 

prt  1 

Cou 

prt2 

put  second  part  here 

Cou 

lprt2 

length  of 

prt2 

Cou 

p<-t3 

put  third 

part  here 

Cou 

lprt3 

length  of 

prt3 

CfCOMMON 

BLOCKS 

Cin 

charcon 

character 

■  constants 

CtMETHOD 

C  find  a  comma  and  split  line  by  that 
CfLOCAL  VARIABLES 
C 


1 


index  of  coma 


C  READB6***** . * . . . 

SCONTROL  check«3, segment-BGRP 

SUBROUTINE  REA08G  (INFILE,  IKEY,LINE,LENLINE,ERR,EQF ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

XINCLUDE  INCPAR 
XINCLUOE  FLPMTR 

INTEGER  INFILE,  IKEY,  LENLINE 
LOGICAL  EOF, ERR 
CHARACTER  LINE*LLINE 

C*  ***  ABSTRACT  *** 

CtPURPOSE  reads  next  non-comment  line  from  file  infile,  and 
C  parses  line  for  f irstword<*lkey  characters  and 

C  the  rest  of  the  line.  Returns  eof»true  IF f  end  of 

C  file  has  been  read.  If  key*stop  is  read  all  lines 

C  are  ignored  untill  key*start  is  read 

C#AU0IT  HISTORY 

C  MEMutchler  27-JUN-83  AUTHO 

CtTYPE  read  from  battlegroup  force  level  report  input  file 
CSFORMAL  PARAMETERS 

Cin  infile  file  from  which  to  read 

Cou  key  first  word  of  line  read 

Cou  lekey  length  of  key 

Cou  line  rest  of  line  read 

Cou  lenline  length  of  line  read 

Cou  eof  end  of  file  flag 

C*COMMON  BLOCKS 

Cin  charcon  global  character  constants 

CfCALER  parsoc 

CtMETHGQ 

C  read  a  line.  If  eof  then  return.  If  comment  line,  read  again. 

C  set  key  to  first  non-blank  word  of  line,  line  to  rest  and  get  their 

C  lengths 

Ctt 
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C  REAOFL******** . ** . * . * . ***** 

SCONTROL  check-3, segment-FLRP 

SUBROUTINE  REAOFL  (INFILE,  IKEY , LINE, LENLINE, ERR, EOF > 

O  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

% INCLUDE  INCPAR 
ZINCLUOE  FLPMTR 

INTESER  INFILE,  IKEY,  LENLINE 
LOGICAL  EOF, ERR 
CHARACTER  LINE*LLINE 

C*  *♦*  ABSTRACT  **♦ 

CfPURPOSE  reads  next  non-comment  line  from  file  infile,  and 
C  parses  line  for  f irstword<-lkey  characters  and 

C  the  rest  of  the  line.  Returns  eof-true  IF f  end  of 

C  file  has  been  read.  If  key-stop  is  read  all  lines 

C  are  ignored  untill  key-start  is  read 

Cf AUDIT  HISTORY 

C  MEMutchler  lS-may-83  AUTHO 

CfTYPE  read  from  input  file 

CfFORMAL  PARAMETERS 

Cin  infile  file  from  which  to  read 

Cou  key  first  word  of  line  read 

Cou  lekey  length  of  key 

Cou  line  rest  of  line  read 

Cou  lenline  length  of  line  read 

Cou  eof  end  of  file  flag 

C#C0MM0N  BLOCKS 

Cin  charcon  global  character  constants 

CtCALER  parsoc 

CtMETHOD 

C  read  a  line.  If  eof  then  return.  If  comment  line,  read  again. 

C  set  key  to  first  non-blank  word  of  line,  line  to  rest  and  get  their 

C  lengths 

Ct« 
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C  SKIPFL* . . . 

SCONTROL  check»3, segment-FLBG 

SUBROUTINE  SK IPFL( INFILE, ERR , EOF  ) 

C*  *««  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  INFILE 
L06ICAL  EOF, ERR 

C*  ***  ABSTRACT  *** 

CiPURPOSE  reads  and  ignores  all  lines  utill  a  start  line 
C  is  read 

C#AUDIT  HISTORY 

C  MEMutchler  lS-nay-83  AUTHOR 

CtTYPE  read  from  input  file 

CfFORMAL  PARAMETERS 

Cou  err  an  error  was  found 

Cou  eof  end  of  file  flag 

CtCOMMON  BLOCKS 

Cin  charcon  global  character  constants 

CtCALLER  parsoc 

CtMETHOO 

C  read  a  line.  If  eof  then  return.  If  comment  line,  read  again. 

C  set  key  to  first  non-blank  word  of  line,  line  to  rest  and  get  their 

C  lengths 

C«S 
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12.1  PURPOSE 

The  assigner  provides  the  user  with  a  high-level  facility 
for  creating  and  modifying  ship  construction  schedules.  A 
typical  five-year  shipbuilding  program  projection  contains  more 
than  100  ship  schedules;  a  typical  schedule  record  from  one  of 
the  ncjodat  relations  contains  perhaps  20  data  fields.  This 
represents  a  fairly  large  volume  of  data. 

One  of  the  principal  activities  of  program  analysis  is 
program  redesign,  which  involves  changing  the  number  of  ships  to 
be  built,  their  timing,  and/or  which  shipyards  will  perform  the 
jobs.  Creating  a  new  program  or  making  changes  is  very  time  con¬ 
suming  if  done  on  a  schedule-by-schedule  basis  given  the  amount 
of  data  the  raw  schedules  contain.  Also,  analysts  often  prefer 
to  perform  this  activity  by  outlining  the  broad  pattern  of  the 
program,  e.g.  the  number  of  ships  of  each  class  to  be  awarded 
each  year,  rather  than  by  working  with  the  detail  of  the 
schedules. 

The  assigner  is  a  productivity  tool  designed  to  support 
this  usage  pattern.  It  is  a  specialized  editor  which  presents 
the  user  with  shipyard  assignments  by  yard,  ship  class,  job  type, 
and  period  in  a  tabular  fashion,  and  which  accepts  changes  to  the 
assignments.  At  the  close  of  a  session  it  will  create  a  new  set 
of  schedule  records  as  implied  by  the  assignments  (using  con¬ 
struction  job  descriptions  for  each  class  in  its  computation  of 
schedule  record  fields),  and  will  write  them  into  the 
ncjodat. projj  relation  as  the  current  schedules  for  the  user's 
scenario.  Shipbuilding  program  schedule  creation  and  modifi¬ 
cation  is  thus  a  quick  and  intuitively  natural  process,  rather 
than  a  tedious  one  in  which  the  analyst  can  become  lost  in 
detail. 
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A  number  of  features  flesh  out  this  basic  capability.  The 
user  may  choose  to  edit  only  a  subset  of  the  schedules,  with  the 
subset  being  defined  by  the  yard,  class,  and  job  type  code  names 
that  are  "on"  in  the  assigner' s  Command  System  list  menus.  Indi¬ 
vidual  schedules  changed  using  the  DBU  may  be  marked  as  unchange¬ 
able  by  the  assigner  so  that  the  field  values  the  user  specified 
are  not  arbitrarily  overwritten.  The  assigner  checks  for  the 
existence  of  appropriate  job  description  data  whenever  assign¬ 
ments  are  added  or  modified;  if  they  are  not  found,  the  user  may 
put  the  assigner  on  hold  and  return  to  the  Command  System  and  the 
DBU  to  enter  the  job  description,  and  then  come  back  to  finish 
his  assigner  session.  Command  system  parameters  give  the  user 
the  capability  to  configure  the  assigner  in  various  ways.  For 
example,  the  algorithm  which  computes  new  schedules  from  the 
rather  sketchy  data  on  the  display  page  may  be  "tuned"  by  setting 
parameter  values. 

12  .2  SUMMARY  OF  STRUCTURE 

The  assigner  is  structured  in  three  major  parts,  as  shown 
in  Figure  12-1.  This  corresponds  to  the  three  fairly  separable 
tasks  which  it  must  perform.  When  invoked,  the  assigner  must 
first  read  the  schedules  in  the  data  base  for  the  current 
scenario  and  convert  these  into  a  form  usable  during  the  editing 
phase.  Then  it  must  support  user  editing  by  offering  a  variety 
of  interactive  command  options.  When  the  user  is  finished,  it 
must  compute  new  schedules  and  save  them  in  the  data  base. 

This  division  into  parts  is  implicit,  showing  up  only  in 
the  flow  of  execution  of  the  asgn.prog  FORTRAN  program  which 
implements  all  three.  This  program  is  run  by  the  Core  as  a  son 
process;  its  handling  somewhat  resembles  the  DBU  in  that  the  user 
may  return  to  the  Command  System  from  this  process  without  term¬ 
inating  it,  coming  back  to  reativate  the  process  and  resume  his 
in-progress  editing  session  later. 
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Because  of  the  variety  of  its  functions  the  assigner  has  a 
particularly  rich  data  structure.  The  center  of  this  data  struc¬ 
ture  is  two  direct-access  binary  files  which  the  assigner  creates 
in  the  user's  log-on  group  (called  bufasn  and  cmnasn)  in  which 
all  assignment  records  (an  assignment  record  corresponds  to  a 
single  row  appearing  on  the  display  screen)  and  the  values  of 
important  common  blocks  are  saved.  This  buffering  of  the  data 
both  conserves  data  memory  (crucial  on  the  HP)  and  provides  abort 
protection.  If  an  abort  occurs  for  any  reason  during  an  editing 
session  the  user  can  always  recover  to  that  point,  since  the 
assigner  automatically  looks  for  and  offers  the  user  the  option 
of  using  an  existing  buf asn/cmnasn  during  its  initialization. 

The  user  need  only  re-run  the  assigner  to  effect  recovery. 

Bufasn  and  cmnasn  and  the  /asgn/  and  /asnvld/  common  blocks 
are  the  primary  means  of  communication  between  the  three  parts  of 
the  program.  The  next  sections  will  discuss  the  structure  of 
each  part  in  more  detail. 


12.2.1  leaning!  ggy 

Before  continuing  it  is  necessary  to  define  some  terms  and 
concepts  which  will  be  used  throughout  this  section.  They  are: 

1)  ASSIGNMENT:  An  assignment  is  a  count  of  1  appearing  in 
any  row  and  column  of  the  assigner  display.  It  is  the 
fact  that  a  given  ship  will  have  a  given  job  done  at  a 
given  yard  in  a  given  period.  A  bufasn  record  element 
or  a  display  page  cell  (a  row/column  location)  of  "3", 
for  example,  denotes  3  assignments. 

2)  ASSIGNMENT  RECORD:  A  row  of  assignments,  or  a  bufasn 
record. 

3)  SCHEDULE:  A  record  with  specific  milestone  dates  for  a 
given  ship  job,  in  the  form  used  in  the  ncjodat  and 
rejodat  relations.  A  schedule  is  a  detailed  version  of 
an  assignment. 

4)  TUPLE:  A  schedule  record  that  is  resident  in  one  of  the 
ncjodat  or  rejodat  relations. 
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5)  CLASS- JOB :  Any  assignment  will  be  to  perform  a  given 
job  on  a  ship  of  a  given  class  in  a  given  yard.  An 
assignment  record  is  all  assignments  for  that  job  on 
that  class  in  that  yard.  On  the  display  page, 
assignment  rows  are  labeled  by  the  class  name  and  a 
single-character  code  indicating  the  job  type  (blank 
indicated  new  construction).  A  class- job  is  such  a  row 
or  the  label  on  the  row. 

6)  JOB  SERIES  TYPE:  Assignments  for  a  given  class-job  can 
be  characterized  as  lead-ship  jobs,  first- in-yard  jobs, 
follow  ship  jobs,  etc.  What  variety,  or  job  series 
type,  a  given  assignment  belongs  to  is  represented  on 
the  display  page  by  a  single-character  code  appearing  at 
the  location  of  the  assignment  display  cell.  An  "L2" 
indicates  2  assignments  in  the  given  period,  the  first 
of  which  is  a  lead  ship. 

7)  INBOUND/ OUTBOUND s  The  initialization  phase  of  assigner 
execution  is  sometimes  referred  to  as  the  "inbound  leg”, 
while  the  DB  update  phase  is  sometimes  called  the 
"outbound  leg”.  The  inuition  of  the  terms  is  based  on 
the  direction  of  flow  of  data  between  the  assigner  and 
the  data  base. 

8)  HARD-WIRED  TUPLES:  The  user  may  specify  that  a  given 
schedule  tuple  not  be  changed  during  the  assigner' s  DB 
update  step  by  setting  the  AUTOMOD  field  of  the  tuple  to 
a  "NO"  value  in  the  DBU.  This  is  a  no-assigner-modify 
or  hard-wired  tuple,  one  which  the  DB  update  logic  must 
not  change  in  any  way  (except  that  it  can  be  deleted  if 
the  user  deletes  all  the  assignments  for  its  class  job 
in  its  period) . 

12.2.2  Ini ti al iz a ti on  St r uctur e 

Figure  12-2  diagrams  the  structure  of  the  initialization 
phase,  with  an  emphasis  on  data  flow.  Initialization  is  trig¬ 
gered  on  asgn  process  creation  and  first  activation.  It  is  not 
repeated  if  the  user  puts  the  assigner  on  hold  during  the  editing 
phase  and  then  returns  to  it  later;  the  user  is  just  back  where 
he  was  when  he  left  in  that  case. 


Figure  12-3  summarizes  the  flow-of-control  of  the  initial¬ 
ization  step.  Although  several  data  structures  contribute  to 
intialization,  the  central  goal  and  activity  of  the  process  is 
the  read  of  data  base  schedules  and  conversion  of  them  into 
assignment  records. 


Figure  12-2.  Assigner  Initialization  Structure 
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Figure  12-3.  Narrative  Summary  of  Assigner  Initialization 


Call  iniprc  to  swap  in  Core  data. 

Check  to  make  sure  user  has  write  priveleges  to 
ncj  odat.proj  j 

Set  flags. 

Open  ncjdat.descj  to  support  dynamic  checking  of  job 
description  availability  as  user  enters  new  assignments. 

Open  and  read  iniasn.sysro 

Open  bufasn  if  it  exists  in  the  log-on  group,  or  create  it. 
Open  the  help  text  file  hlpasn. sysro 

Open  cmnasn  if  it  exists  in  the  log-on  group,  or  create  it. 

If  bufasn  and  annasn  existed,  see  if  the  user  wants  to  use 
them  or  start  fresh.  If  use,  initialize  system  to  its  old 
state  from  annasn' s  contents,  bring  in  the  lists  of  valid 
yards/cl  asses/ jobtypes  for  this  invocation,  and  flush  any 
invalid  assignments  records  from  the  old  bufasn.  Write  the 
display  screen  and  we're  done. 

If  bufasn/annasn  didn't  exist  or  the  user  want  to  start 
fresh,  bring  in  the  lists  of  valid  yards/classes/ jobtypes, 
and  read  the  data  base  for  schedules,  converting  them  into 
assignments  records.  Write  the  display  screen. 


On  Figure  12-2  note  in  particular  the  read  of  the 
iniasn.sysro  configuration  file,  The  assigner  is  very  much  a 
data-driven  system,  with  many  important  elements  appearing  as 
variables  rather  than  being  hard-wired  into  the  code.  Many  of 
these  variables  are  set  by  reading  iniasn,  making  it  easy  to 
change  them  as  appropriate. 

12.2.3  Edi .tgc.. Strug, t.ur..e 

As  befits  an  editor,  the  second  part  of  the  assigner  is 
fundamentally  organized  around  obtaining  and  responding  to  user 
commands.  The  commands  are  summarized  in  Figure  12-4. 

They  can  be  divided  into  three  types:  paging  commands 
which  let  the  user  look  at  a  different  time  frame  or  set  of 
shipyards/classes,  assignment-modification  commands  which  imple¬ 
ment  the  basic  editing  functions  of  add,  delete,  modify,  and 
copy,  and  service  commands  such  as  help  requests  and  exit 
requests. 

Figure  12-5  presents  a  typical  assigner  display  page.  The 
page  is  effectively  a  window  on  the  assignments  records  held  in 
the  bufasn  file.  The  window  is  up  to  15  lines  long  and  twenty 
columns  (periods)  wide.  The  position  of  the  window  is  changed  by 
the  page  up/down  (  +  ,  -,  ++,  — )  and  the  page  right/left  (>,  <, 

>>,  <<)  commands.  Paging  never  changes  the  assignments;  the 
paging  algorithm  merely  causes  a  different  part  of  the  buffer  to 
be  extracted  and  printed  to  the  screen. 

The  modification  commands  (A,  I,  D,  M,  R,  and  RC  and  their 
permutations)  do  alter  the  assignments  records  by  addition, 
deletion,  modification,  or  copying.  Most  require  the  user  to 
specify  by  number  both  a  yard  and  a  class-job  to  be  changed,  in 
figure  12-5,  the  LSD-49  assignments  at  Avondale  would  be  indi¬ 
cated  by  the  number  1.2.  Most  prompt  the  user  for  the  new  or 
changed  assignments,  perform  basic  data  validation  on  the 
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?  *  Obtain  help  from  a  menu  ?  4  *  Print  help  subject  number  # 

*  Refresh  assign  display  “  ■  EXIT  assignments  module 

I  »  Display  previous  page  [[  -  Display  topmost  page 

]  «  Display  next  page  ]]  ■  Display  last  page 

<  »  Display  left  neighbor  <<  *  Display  leftmost  page 

>  *  Display  right  neighbor  >>  ■  Display  rightmost  page 

A  ■  Add  a  new  yard  A  4  *  Add  new  shipclass  to  yard  4 

I  #  ■  Add  new  yard  before  f  I  4.  ■  Add  new  class  before  #. 

D  #  *  Delete  an  entire  yard  D  4.  -  Delete  class  from  yard  * 

MN  #  -  Modify  Name  of  yard  #  MN  4.  »  Modify  Haste  of  class  t. 

P  *  Display  to  line  printer  P  #,  ■  Print  froa  yard  #  to  on  LP 

M  f.  ■  Modify  assignments  for  class  in  yard  I 

R  4  *  Relocate  yard  numbered  4  to  end  of  list 

R  4f44  *  Relocate  yard  4  to  before  yard  number  ## 

R  #<r##  *  Relocate  #.  to  end  of  yard  ##'s  classes 

R  #.»##.  ”  Relocate  class  *.  to  before  class  ft. 

RC  #  /  RC  #f#4  *  Like  R,  except  copy  yard  instead  of  move 

RC  #.,##  /  RC  #.,##.  -  Again  like  R;  copy  class  instead  of  move 
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Figure  12-5.  A  Typical  Assigner  Display  Page 


Scenario :  DEMO 
Yard  Period: 

Shipclass  T 
AVONDALE  #01 

1  LSD-41 

2  LSD-49 

3  T- AO-1 87 

BIW  #02 

1  CG-47 

2  DDG-51 

EB  GROT  #03 

1  SSBN-726 

2  SSN-21 

3  SSN-6  88 

GDQ  #04 

1  AE 

2  AG 

3  AO-187  c 

14  33  TOTALS 

(?»help)  > 


*SHIP  ASSIGNMENTS* 
123456789 
86  87  88  89  90  91  92  93  94 

— H - H - H - H - H - H - H - H - | - 

2  1 

L2  2  2 

2  2  2  2  2 

— H - H - h - H - H - H - H - H - | - 

1111 
Y1  F2  1  2 

— H - ^ - H - H - H - H - H - H - | - 

11111 

LI 

2  2  2  1  2 


Page  1A  Time  in:  FISCYR 


Y1  1  1 

LI 

1  1 

- H - H - H - H - H 

29  24  33  30  27 
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response,  and  alter  the  contents  of  bufasn  and/or  the  /asgn/ 
common  block  in  response. 

The  service  commands  provide  miscellaneous  functions  such 
as  help,  module  exit,  and  sending  of  the  assigner  display  pages 
to  a  printer. 

At  its  highest  level  the  structure  of  the  editor  is  ex¬ 
tremely  simple,  as  indicated  in  Figure  12-6.  ftie  asgn  program 
unit  routine  calls  a  routine  which  prompts  the  user  for  a  command 
and  which  decode  the  response,  and  then  calls  the  executive 
routine  for  the  given  command.  Complexities  in  the  editor  imple¬ 
mentation  involve  the  details  of  executing  particular  commands; 
the  complexities  are  "pushed  down"  into  subsidiary  routines 
(which  will  be  discussed  in  Section  12.5). 

12.2.4  Data  Base  Update  Structure. 

The  task  of  the  data  base  update  logic  is  conversion  of  a 
summary  description  of  program  schedules,  the  assignments,  into 
detailed  schedules  in  the  ncjodat.proj j  relation.  This  involves 
generation  of  more  detailed  than  is  explicitly  contained  on  the 
assigner  display  page.  The  detail  is  reconstructed  using  infor¬ 
mation  from  the  new  construction  job  schedule  descriptions,  or 
planning  factors,  found  in  the  ncjdat.descj  relation,  and  by 
applying  rules  of  thumb. 

The  principal  computational  task  is  generation  of  the 
schedule  dates.  A  single  date  can  be  inferred  for  an  assignment 
from  the  column  on  the  assigner  display  in  which  it  appears;  the 
rest  must  be  calculated  from  this  "basis  date”  using  the 
milestone- to- milestone  time  intervals  given  in  ncjdat.descj.  The 
user  may  specify  use  of  various  da te- spreading  algorithms  (e.g., 
compute  the  schedules  such  that  all  starts  in  a  given  yard  for  a 
given  class  are  evenly  spaced  over  time)  by  setting  parameters  in 
the  Command  System  menu. 
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The  overall  structure  of  the  update  step  is  shown  in  Figure 
12-7.  The  user  may  have  assignments  for  ships  whose  schedules 
are  in  the  historical  and  current  schedule  relations  displayed  by 
setting  parameters  in  the  Command  System  menu;  these  must  be 
removed  before  new  projected  schedules  are  generated  or  too  many 
will  be  created. 

It  is  fairly  common  for  users  to  enter  assignments  for 
which  no  job  description  is  available  in  ncjdat.descj.  When  the 
schedule  creation  logic  detects  this  problem  it  tells  the  user 
about  it  and  returns  him  to  the  Command  System,  putting  the 
assigner  process  on  "Hold"  so  he  can  enter  the  required  data 
using  the  DBU  and  come  back  to  the  assigner  to  finish  the  data 
base  update. 

Schedule  records  must  be  given  hull  numbers  only  after  the 
write  of  the  new  schedules  to  ncjodat.proj j  is  complete  because 
of  the  option  which  lets  the  user  mark  schedules  as  unchangeable 
by  the  assigner  (AUTO  MOD*  "NO")  .  Ncjodat.proj  j  records  must  have 
unique  values  for  the  key  SCENARIO, CLASS, HULL, COMNUM;  aborts  can 
occur  if  the  update  logic  assigns  fined  hull  numbers  before  the 
write  since  a  no-assigner-mod  record  might  have  the  same  hull 
number  as  one  the  assigner  attempts  to  add  (RELATE  unary  key 
index  violation  results)  .  Records  are  written  with  negative  hull 
numbers,  and  these  are  then  changed  by  a  logic  which  takes  the 
presence  of  no-assigner-mod  records  into  account. 

The  structure  for  the  actual  schedule  generation  and  update 
step  is  pictured  in  more  detail  in  Figure  12-8.  This  complex 
task  is  organized  around  the  requirements  of  the  date-spreading 
algorithm,  which  requires  as  input  an  ordered  list  of  the 
candidate  ship  schedule  dates  (one  per  ship)  as  generated  from 
assignments'  column  position  on  the  display  screen.  The  user  may 
specify  no  spreading,  spreading  within  a  class- job,  or  spreading 
within  a  com pexity-g roup.  For  example,  even  intervals  between 
starts  of  DDG-51  construction  jobs  at  BATH  might  be  desired 


12-13 


EXIT 


FIRST 

YARD 


NO  MORE 
GROUPS 
THIS 
YARD 


FIND  CLASS-JOBS 
IN  BUFASN 


GET  COMPLEXITY 
GROUPS 


CONVERT  ASSIGNMENT  RECORDS  FOR 
ALL  CLASS-JOBS  IN  GROUP  INTO 
SHIP  RECORDS  IN  ORDER  OF  PERIOD 


(within  class- job),  or  perhaps  even  intervals  between  starts  for 
the  combination  of  DDG-51  and  CG-47  jobs  (complexity-group 
option)  .  A  complexity  group  is  defined  as  any  set  of  class- jobs 
in  the  same  yard  with  the  same  value  in  the  GOMPLXGRP  field  in 
their  ncjdat.descj  job  description  records. 

Once  the  dates  are  spread,  producing  final  schedule  basis 
dates  for  each  ship,  the  "hard-wired  tuple  removal  process"  look 
through  ncjodat.proj j  for  tuples  in  the  current  scenario  with 
ADTOMOD  field  values  of  "NO",  finds  the  corresponding  ship- record 
for  each  one  found,  and  removes  that  ship  record  so  no  double 
counting  occurs.  The  match-up  between  tuples  and  ship- records  is 
done  according  to  schedule  basis  date. 

Then  complete  schedule  records  are  constructed  for  each 
ship-record  and  are  placed  in  a  temporary  direct-access  file  used 
as  a  buffer.  The  ncjodat.proj  j  update  logic  then  takes  records 
from  this  file  and  either  updates  them  over  corresponding 
existing  tuples  in  ncjodat,  adds  them  to  ncjodat,  or  deletes 
ncjodat  tuples  when  there  are  more  of  those  than  there  are 
schedule  records. 


12.3  INPUTS  AND  OUTPUTS 

The  assigner' s  principal  outputs  are  the  display  screens 
presented  to  the  user  during  editing  (such  as  the  sample 
presented  in  Figure  12-5) ,  and  updated  schedules  in  the  ncjodat. 
projj  relation.  The  primary  purpose  of  the  screens  is  to  support 
interactive  editing,  but  they  also  can  serve  as  "final”  outputs 
when  the  user  causes  them  to  be  printed  by  giving  the  "P" 
command. 


The  schedules  which  are  output  have  the  following  char¬ 
acteristics  : 

1)  The  milestone  dates  they  contain  are  consistent  with 
both  the  time  pattern  of  assignments  which  was  showing 
on  the  display  screens  when  the  'Q'/'~'  command  was 
given,  and  with  the  schedule  planning  factors  read  from 
the  job  description  relation  ncjdat.descj .  When  the 
display  time  units  are  years  and  the  date  spreading 
basis  date  is  not  appropriation  or  award,  the  award  date 
will  be  on  the  month  and  day  specified  in  the  DEFLTAWDAY 
field  in  ncjdat.descj.  When  DEFLTAWDAY  is  used,  the 
schedule  typically  cannot  agree  completely  with  both  it 
and  the  milestone- to- milestone  intervals.  The  emphasis 
in  these  cases  is  on  computing  appropriation/ award  dates 
such  that  subsequent  runs  of  the  assigner  will  show  the 
same  time  pattern  of  assignments. 

2)  The  YARD,  CLASS,  NCJOBT,  and  JSTYP  fields  all  have 
values  consonant  with  the  names  and  code  characters 
which  were  showing  on  the  display.  COMNUM  is  always  set 
to  1 . 

3)  DATADATE  and  ENTRY_DATE  are  both  set  to  the  current 
date,  ENTRY_BY  to  the  current  user,  and  DATASOURCE  to 
'ASSIGNER'  . 

4)  HULL  is  set  by  the  complex  algorithm  implemented  in  the 
newhul.rprocs  RELATE  execute  file.  The  algorithm  tries 
to  create  hull  numbers  which  continue  the  sequences 
found  in  the  historical  or  current  schedule  relations. 

5)  All  other  fields  are  set  according  to  the  specifications 
of  the  job  description  records. 


An  example  of  some  of  the  schedules  created  by  the  assigner 

from  the  AVONDALE  assignments  shown  in  Figure  12-5  is  shown  in 
Figure  12-9  . 
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Figure  12-9.  Sample  Schedules  From  Ncjodat .proj j  Relation 


$LINE  SCENARIO  CLASS  HULL  COMNUM  YARD  NCJOBT  JSTYP  CUSTOMER 

SHIP NAME  CMETHD  APPROP 

AWARD  START  KEEL  LAUNCH  DELIVERY  COMMISSION  DAYSADDED 

ASNORDER  DATADATE  DATASOURCE  ENTRY_BY  ENTRY_DATE  AUTO 
PROGVAR1  PROGVAR2  SUBRELUMAP 

334  DEMO  LSD-41  42  1  AVONDALE  NEWCON  ORDFOL  USN 

MODULZ  10/01/1985 

11/01/1985  11/01/1986  5/01/1987  1/01/1989  5/01/1990  6/01/1990  0 

57553221  10/28/1984  908/SHAPM  MARK  10/28/1984  YES 

42  0  0 

335  DEMO  LSD-41  43  1  AVONDALE  NEWCON  ORDFOL  USN 

MODULZ  10/01/1984 

11/30/1984  6/30/1986  1/30/1989  0 

0  9/01/1984  908/SHAPM  DBA  9/25/1984  YES 

41  1  0 

336  DEMO  LSD-41  44  1  AVONDALE  NEWCON  ORDFOL  USN 

MODULZ  10/01/1985 

11/01/1985  7/02/1987  1/02/1988  9/02/1989  1/02/1991  2/02/1991  0 

57553221  10/28/1984  908/SHAPM  MARK  10/28/1984  YES 

43  0  0 

337  DEMO  LSD-41  45  1  AVONDALE  NEWCON  ORDFOL  USN 

MODULZ  10/01/1986 

11/01/1986  3/01/1988  9/01/1988  5/01/1990  9/01/1991  10/01/1991  0 

57553221  10/28/1984  908/SHAPM  MARK  10/28/1984  YES 

44  0  0 

338  DEMO  LSD-49  49  1  AVONDALE  NEWCON  LEAD  USN 

MODULZ  10/01/1987 

11/01/1987  11/01/1988  7/01/1989  6/01/1991  6/01/1993  7/01/1993  0 

57553222  10/28/1984  908/SHAPM  MARK  10/28/1984  YES 

49  1  0 

339  DEMO  LSD-49  50  1  AVONDALE  NEWCON  ORDFOL  USN 

MODULZ  10/01/1987 

11/01/1987  5/02/1989  1/02/1990  12/02/1991  12/02/1993  1/02/1994  0 

57553222  10/28/1984  908/SHAPM  MARK  10/28/1984  YES 

50  0  0 

340  DEMO  LSD-49  51  1  AVONDALE  NEWCON  ORDFOL  USN 

MODULZ  10/01/1988 

11/01/1988  11/01/1989  7/01/1990  6/01/1992  6/01/1994  7/01/1994  0 

57553222  10/28/1984  908/SHAPM  MARK  10/28/1984  YES 

51  0  0 

341  DEMO  LSD-49  52  1  AVONDALE  NEWCON  ORDFOL  USN 

MODULZ  10/01/1988 

11/01/1988  5/03/1990  1/03/1991  12/03/1992  12/03/1994  1/03/1995  0 

57553222  10/28/1984  908/SHAPM  MARK  10/28/1984  YES 

52  0  0 


12-18 


Inputs  the  assigner  requires  include  the  iniasn.sysro 
configuration  file,  the  Core  data  swap  segment  (with  its  current 
values  from  the  assigner' s  parameter  menu),  the  lists  of  yards, 
classes,  and  job  types  of  interest  for  the  run  from  the 
assigner 's  Command  System  list  menus,  the  schedules  found  in  the 
data  base  for  the  given  scenario  at  the  time  of  execution,  the 
job  description  relation's  contents  for  the  given  scenario, 
scenario  key  field  values  from  the  scenario  system's  extra  data 
segment,  and  (of  course)  editing- session  commands  and  inputs  from 
the  user. 


12 *3.1  The  Configuration  File  and,  the  Help  File 

Figure  12-10  shows  a  copy  of  the  assigner  configuration 
file  stored  in  iniasn.sysro.  This  file  is  read  during  initial¬ 
ization  to  discover  the  values  of  certain  assigner  operating 
parameters.  The  file  contains  six  lines,  read  sequentially  using 
FORTRAN  formatted  i/o.  The  formats  are  typically  fixed,  so  that 
column  position  of  the  data  is  important.  The  contents  of  the 
lines  are  as  follows: 


LINE  1;  Six  integers.  The  first  may  be  0  or  1,  specifying 
whether  the  main  intial ization  and  editing  lprnt 
(number  7)  will  be  off  or  on.  The  second  is  the 
FORTRAN  unit  number  for  diagnostic  output, 
typically  the  same  as  standard  output.  If 
changed,  be  sure  to  give  the  proper  FILE  equations 
prior  to  assigner  execution  so  that  diagnostics  go 
to  the  proper  device.  The  third  number  may  be  0 
or  1,  specifying  whether  subsequent  reads  from 
iniasn  will  not  or  will  be  echoed.  The  fourth 
number  specifies  the  FORTRAN  unit  number  the  echo 
will  be  sent  to  (same  warnings  apply  as  for  the 
diagnostic  unit).  The  fifth  and  sixth  numbers 
specify  the  unit  numbers  for  normal  interactive 
input  and  output.  The  text  string  to  the  right  of 
the  6  15  fields  is  a  brief  reminder  of  the  purpose 
of  each  field. 

LINE  2:  An  integer,  a  *2  character  string,  and  an  up  to 

*16  character  string.  The  *2  string  is  the  short 
interactive  command  prompt,  set  to  ">  "  in  the 
example.  The  large  string  is  the  long  interactive 
prompt,  to  which  the  short  prompt  is  concatenated. 
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Figure  12-10.  Text  of  INIASN.SYSRO  Configuration  File 


060656  (615)  iprnt,ioutp,iecho,uecho,in,out 

9%  (?-help)  "  short,  "(?-help)  "  long 

10  LF  ncrs  asncas.cdchar, jtchar-"n"*default 

BUFASN  1  500 

HLPASN.SYSRO  2 

CMNASM  3 


The  number,  given  before  the  strings,  is  the 
number  of  characters  in  the  long  string.  The 
command  prompt  is  thus  very  easily  configurable. 

LINE  3:  A  single  number  specifying  user  input  uppercasing 
rules  for  yard  and  class  names.  The  remainder  of 
the  fields  on  the  line  are  obsolete  and  ignored. 
The  number  specifies  a  bit  map  where  bits  1  and  3 
on  indicate  uppercasing  only  of  the  first 
characters  of  names,  bits  2  and  4  upper  casing  of 
all  characters  in  names  (the  job  type  code 
character  at  the  end  of  a  class-job  name  is 
lowercased  later  in  the  current  logic) .  The 
setting  of  10  invokes  complete  upper  casing. 

LINE  4:  The  name,  FORTRAN  i/o  unit  number,  and  maximum 
number  of  records  allowed  in  the  bufasn 
assignments  holding  buffer  file.  The  file  will  be 
created  in  the  log-on  group  and  i/o  will  take 
place  through  the  given  unit  number.  Should  500 
class-jobs  ever  be  insufficient  the  limit  can 
easily  be  expanded  by  changing  the  third  parameter 
of  this  line. 


LINE  5:  The  name  and  FORTRAN  i/o  unit  number  of  the 

prthlp- readable  assigner  help  text  file,  currently 
hlpasn.sysro. 

LINE  6:  The  name  and  FORTRAN  i/o  unit  numoer  for  the 
cmnasn  file  which  is  companion  to  bufasn.  It 
always  has  only  two  records,  since  it  contains  the 
contents  of  two  of  the  common  blocks  in  the  /asgn/ 
include  file.  It's  primary  function  is  to  support 
recovery  after  an  abort  by  holding  the  system 
status  at  the  time  of  the  abort. 


The  great  majority  of  on-line  help  for  the  assigner  is 
stored  in  the  hlpasn.sysro  file.  This  is  a  standard  EDITOR-type 
ASCII  file  divided  into  sections  by  the  %  BEG  IN  statements  rec¬ 
ognized  by  the  prthlp  utility.  This  file  is  opened  during 
initialization  and  read  as  necessary  in  response  to  user  help 
requests. 


1 2 .3  .2  Variables  From  the 
Parameter  Menu 

The  assigner  actually  uses  a  good  deal  of  the  data  in  the 
swap  segment  provided  by  the  Core  and  read  during  initialization 
by  a  call  to  the  iniprc  utility.  Of  interest  are  lprnts  settings 
and  the  contents  of  the  /scenar/  and  /uzrprv/  common  blocks.  Of 
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principal  interest  are  the  setting  of  variables  on  the  assigner's 
parameter  menu.  These  are  read  by  asnlbs,  which  transfers  the 
values  from  their  storage  locations  in  /pvalue/  to  variables  in 
/asgn/.  A  sample  of  the  assigner  parameter  menu  is  shown  in 
Figure  12-11.  The  meaning  and  use  of  each  parameter  is: 

1)  TIME  UNIT:  Specifies  the  amount  of  time  that  each 
display  page  column  represents.  When  combined  with 
STARTING  DATE,  also  determines  the  first  day  of  the 
period  each  column  represents. 

2)  STARTING  DATE:  First  day  of  the  period  the  user  wants 
assignments  displayed  for.  It  is  permissible  to  work 
with  a  subset  or  superset  of  the  periods  represented  by 
schedules  currently  in  ncjodat.proj  j .  If  the  date  given 
is  not  the  first  day  of  the  period  type  specified  it  is 
moved  back  to  that  day  (i.e.  if  fiscal  years  is  the  TIME 
UNIT  and  the  STARTING  DATE  is  given  as  1/1/1986,  it  will 
be  moved  back  to  the  first  day  of  fiscal  1986, 

10/1/1985)  . 

3)  ENDING  DATE:  Last  day  of  the  time  span  of  interest. 
Determines  the  number  of  columns  on  the  display  page  in 
combination  with  the  first  two  parameters. 

4)  CANDIDATE  SHIP  YARDS:  A  gate  to  a  list  menu  with  the 
names  of  all  the  shipyards  ALIAS  knows  about.  The  user 
can  work  with  assignments  for  only  a  subset  of  these 
yards  by  setting  some  of  the  list  names  to  'OFF'  status. 
No  assignments  are  loaded  for  the  'off'  yards,  and  their 
schedule  records  in  ncjodat.proj  j  (if  any)  are  not 
updated. 

5)  CANDIDATE  SHIP  CLASSES:  Like  candidate  yards,  lets  the 
user  work  with  a  subset  of  ship  classes  only. 

6)  CANDIDATE  JOB  TYPES:  Like  the  previous  two,  lets  the 
user  see  and  update  only  class-jobs  of  certain  job 
types. 

7)  DISPLAY  BASIS:  The  column  any  given  assignment  is 
placed  in  depends  on  which  schedule  milestone  date  is 
being  used  as  the  basis  for  making  assignments.  For  any 
given  schedule,  a  different  column  will  typically  be 
chosen  if  the  basis  is  DELIVERY  rather  than  AWARD.  The 
setting  of  this  parameter  determines  which  milestone  is 
used  as  the  basis  date. 

8)  ADJUST  BASIS:  The  schedule  milestone  date  being  used  as 
the  basis  for  date- spreading.  Though  the  user  may 
specify  assignments  in  terms  of  AWARDS  (display  basis), 
he  may  want,  e.g.,  the  start  dates  of  the  resulting 
schedule  evenly  spaced  over  time. 
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Figure  12-11.  Sample  As signer  Parameter  Menu 


Menu 

is  ASNPRM  * 

ALIAS  COMMAND 

SYSTEM  *  Scenario  is  DEMO 

MANUAL  ASSIGNER  MODULE  INITIALIZATION  PARAMETERS 

1. 

TIME  UNIT 

-  FISCYR 

(FISCYR , CALYR , QTR , MONTH, WEEK , DAY) 

2. 

STARTING  DATE 

-  1/  1/1980 

(MM/DD/YYYY) 

3. 

ENDING  DATE 

-  12/31/1999 

(MM/DD/YYYY) 

4. 

CANDIDATE  SHIP  YARDS 

-  LIST 

(ALL/LIST) 

5. 

CANDIDATE  SHIP  CLASSES 

-  LIST 

(ALL/LIST) 

6. 

CANDIDATE  JOB  TYPES 

-  LIST 

(ALL/LIST) 

7. 

DISPLAY  BASIS 

-  AWARD 

( APPROP , AWD , START , KEEL , LNCH , DELIV) 

8. 

ADJUST  BASIS 

-  START 

( APPROP , AWD , START , KEEL , LNCH , DELIV) 

9. 

ADJUST  MODE 

-  PROGRAM 

( NONE , PROGRAM , COMPLX-GROUP ) 

10. 

JOBS  EPOCH  OPTION 

-  PROJ 

(ALL , CURR/PROJ , PRO J ) 

11. 

SHIP CLASS  SORT  ORDER 

-  ALPHABETIC 

(ALPHABETIC, INPUT  ORDER) 

12. 

SHIPYARD  SORT  ORDER 

-  INPUT  ORDER 

(ALPHABETIC, INPUT  ORDER) 

13. 

AUTO  REFRESH 

-  OFF 

(ON, OFF) 

COMMAND: 
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9)  ADJUST  MODE:  This  setting  controls  the  operation  of  the 
date- spreading  algorithm  employed  during  schedule 
generation.  If  NONE,  then  aspred  is  simply  never 
called.  If  PROGRAM,  aspred  is  fed  only  the  ships  for  a 
single  class-job  in  a  single  yard  when  it  is  called.  If 
COMPLX-GROUP,  aspred  is  fed  all  class- jobs  in  a  yard  in 
the  same  complexity  group,  where  complexity  group  is 
specified  by  the  COMPLXGRP  field  value  in  the 
ncjdat.descj  relation.  The  latter  case  might  be 
desirable  when  a  yard  is  building  similar  ships  of 
different  classes,  e.g.  DDG' s  and  CG' s. 

10)  JOBS  EPOCH  OPTION:  Controls  which  relations  are  read 
for  schedules  during  initialization.  PROJ  is  the  normal 
setting  since  only  projected  schedules  can  be  updated 
anyway.  Note  that  if  the  setting  is  not  PROJ  then 
asclen  must  be  called  during  the  outbound  leg,  at  a 
substantial  processing  penalty. 

11)  SHIPCLASS  SORT  ORDER:  The  user  may  specify  that 
class-jobs  be  listed  alphabetically  within  a  given  yard 
on  the  display  screen,  or  in  the  order  in  which  they 
were  input  or  displayed  during  the  last  session. 

12)  SHIPYARD  SORT  ORDER:  Similar  to  the  previous 

Sarameter,  but  its.  setting  has  no  effect  at  this  time, 
he  display  order  is  always  alphabetic. 

13)  AUTO  REFRESH:  If  ON,  the  assigner  display  will  be 
refreshed  (rewritten)  every  time  the  user  gives  a 
command  which  changes  its  contents  or  writes  substantial 
output  to  the  page.  If  OFF,  the  user  must  always 
request  a  refresh  via  the  command. 

12.3.3  List  Menus 

The  assigner' s  list  menus  were  alluded  to  in  the  last 
section.  Figure  12-12  shows  the  third  of  them,  the  CANDIDATE  JOB 
TYPES  menu.  The  user  can  restrict  the  types  of  job  for  which 
assignments  will  be  read  from  the  data  base  and  displayed;  this 
restriction  also  prevents  the  user  from  entering  any  new  assign¬ 
ments  of  the  "off"  job  types.  Note  that  new  job  type  codes  added 
to  the  system  must  be  explicitly  added  to  a  user's  scenario  with 
the  NC_JOB_TYPES  and  RE_JOB_TYPES  screens  of  the  DBU  before  they 
will  appear  on  this  list  menu,  and  thus  before  their  assignments 
can  be  displayed. 
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Figure  12-12.  Sample  Assigner  Valid  Job  Types  List  Menu 


Menu  is  CHJTYP  *  ALIAS  COMMAND  SYSTEM  *  Scenario  is  DEMO 


CHOOSE  THE 

SET  OF  VALID  JOBS 

WHICH  MAY  BE  ASSIGNED 

1. 

* 

CONV 

5. 

*  REPAIR 

2. 

* 

NEWCON 

6. 

*  SLEP 

3. 

* 

REACT 

7. 

*  SLPCNV 

4. 

* 

REFUEL 

COMMAND: 


The  lists  are  stored  in  the  valcls,  valyds,  and  vljtyp 
relations  in  the  .mnurel  group  (.makmenu  for  the  development 
system)  . 

12.3.4  Sampl  e.  Schedul es 

A  sample  of  ncjodat. proj j  schedule  records  was  shown  in 
Figure  12-9.  For  input  purposes  the  assigner  is  only  interested 
in  a  restricted  set  of  the  fields:  SCENARIO,  YARD,  CLASS,  HULL, 
COMNUM,  NCJOBT,  JSTYP,  DATADATE,  ENTRY. DATE,  and  the  particular 
milestone  date  field  being  used  as  display  basis  (e.g.  AWARD)  are 
the  only  ones  read.  DATADATE  and  ENTRY. DATE  are  consulted  during 
reads  of  the  historical  and  current  relations  to  ensure  that  no 
double-counting  occurs  due  to  multiple  reads  of  the  same  schedule 
for  different  data  dates. 

12  «3  .5  Job  Description  Records 

Figure  12-13  shows  sample  job  schedule  description  records 
from  ncjdat.descj,  which  are  read  during  the  DB  update  phase  in 
order  to  gather  information  necessary  to  construct  complete 
schedule  records  from  the  assignments.  Note  particularly  that 
the  YARD  field  may  take  on  the  name  of  a  specific  yard  or  ANY; 
the  assigner  always  searches  for  a  match  on  the  name  of  the  yard 
an  assignment  is  in  first  (along  with  matches  on  the  other  keys, 
of  course),  but  will  take  any  ANY  record  if  the  first  search 
fails. 

12.3.6  SSfina ElSL-KfiY— Ei.gl£L Y.al3Ji£S 

The  assigner  makes  use  of  the  scenario  system  via  the  DBIF 
in  the  usual  fashion  of  ALIAS  modules.  Relations  opened  via  the 
DBIF  have  the  proper  scenario  key  field  values  for  the  current 
scenario  placed  in  the  cur  sen  array  of  the  /scenar/  block;  these 
values  are  then  used  to  construct  keys  for  searches. 

12.3.7  User  Inputs 

User  inputs  during  the  editing  phase  are  in  two  forms: 
commands  and  assignments.  The  commands  must  be  from  the  list 
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Figure  12—13.  Semple  Job  Description  Records  From  Ncjdat.descj 


$LINE  SCENARIO  CLASS  NCJOBT  YARD  JSTYP  COMNDM  CMETHD  CUSTOMER 

COMPLEXGRP  DEFLT  DAYS ADDED  APPROP_AWD  AWD_ST  ST_KL 

KL_LN  LNJDL  DLjCOM  TIMUNT  DATA SOURCE  DATADATE  ENTRY_DATE  ENTRY_BY 

44  DEMO  LSD-41  NEWCON  ANY  ORDFOL  1  MODULZ  USN 

11/01  0  1  12  6 

20  16  1  MONTHS  908  8/01/1984  8/02/1984  DBA 

45  DEMO  LSD-49  NEWCON  ANY  ORDFOL  1  MODULZ  USN 

11/01  0  1  12  8 

23  24  1  MONTHS  908  8/01/1984  8/02/1984  DBA 

89  DEMO  LSD-49  NEWCON  ANY  LEAD  1  MODULZ  USN 

11/01  0  1  12  8 

23  24  1  MONTHS  908  8/01/1984  8/02/1984  DBA 


given  in  Figure  12-4.  The  assignments  are  display-page  lines  in 
the  general  form  shown  on  the  display  page:  the  user  enters  a 
class  name  and  job  type  character  code,  and  numbers  of  ships  in 
each  period  for  that  class-job.  See  Section  3  of  the  User1  s 
Gui de  for  examples  of  the  formats  of  prompts  and  responses. 

12.4  DATA  STRUCTURES 

The  emphasis  in  this  section  will  be  on  data  structures 
interned  to  an  assigner  run,  though  many  of  the  input  and  output 
structures  discussed  in  the  previous  section  can  be  fruitfully 
thought  of  as  assigner  data  structures.  Examples  are  the 
schedule  and  job  description  relations,  and  the  parameter  and 
list  menus. 


The  internal  data  structures  will  be  discussed  according  to 
function  rather  than  type.  As  a  preliminary,  Table  12-1  presents 
an  annotated  listing  of  the  include  files  used  by  the  assigner. 
The  common  blocks  in  these  files  range  over  all  the  ALIAS  block 
subtypes:  ordinary  common  blocks,  record  structures,  and  linked 
lists. 

12.4.1  System  Status.  Data  Structure 

In  some  sense  the  most  important  include  file  is  the 
asgn.incl  file,  which  contains  four  common  blocks  holding  most  of 
the  system  status  information  maintained  during  the  initializa¬ 
tion  and  editing  phases.  The  values  in  two  of  these  blocks, 
/casgn/  and  /nasgn/,  are  continually  stored  into  the  annasn  file 
so  that  system  status  information  is  recoverable  in  the  event  of 
an  abort.  These  blocks  contain  such  data  items  as  the  names  of 
shipyards  for  which  assignments  are  loaded,  the  arrays  with  row 
and  column  assignment  totals,  etc. 

Qnnasn  is  created  along  with  bufasn  during  initialization 
in  the  log-on  group. 


TABLE  12-1.  Include  Files  Used  By  the  Assigner 


FILENAME  PURPOSE 


ASGN  This  voluminous  include  file  contains  four  common 

blocks  and  several  FORTRAN  PARAMETER  statements.  It 
is  the  most  important  in-memory  data  structure  for 
the  initialization  and  editing  phases  of  execution. 

In  addition  to  flags,  operating  variables,  display 
page  totaling  arrays,  unit  numbers,  etc.,  the  file 
contains  the  record  structure  (block  /basgn/)  which 
is  used  in  communicating  with  the  bufasn  file. 

ASHLDR  A  record  transfer  structure  used  during  the  DB  update 

phase  to  move  assignments  records  (in  their  bufasn 
form)  between  the  process  data  stack  and  an  extra 
data  segment  used  as  a  holding  area.  All  assignments 
records  in  the  complexity  group  currently  being 
processed  are  maintained  in  the  "hldbuf"  data 
segment. 

ASJD  ASsigner  Job  Descriptions.  Used  during  the  DB  update 

phase  to  hold  all  the  job  description  records  for  a 
particular  cl  ass- job  retrieved  from  the  ncjdat.descj 
relation.  There  can  be  several  such  records,  e.g. 
one  for  a  LEAD  job  series  type,  one  for  an  ORDFOL 
series  type,  etc.  /ASJC/  is  NOT  a  record  structure 
(i.e.  it  is  not  used  in  the  retrievals  from  the 
relation),  but  rather  is  a  storage  area  consulted  by 
the  ncjodat  record  construction  logic  as  necessary. 

ASNOCR  ASsigner  Outbound  CuRsors.  A  common  block  of  integer 

variables  in  which  cursor  indexes  returned  by  the 
DBIF  during  the  DB  update  relation-opening  phase  are 
stored.  Used  only  by  the  update  phase. 

ASNVLD  The  lists  of  valid  (of-interest )  ship  class  names, 

yard  names,  and  job  type  code  names  as  read  from  the 
assigner' s  three  Command  System  list  menus.  Also,  a 
list  of  valid  job  series  type  character  codes  for 
insertion  in  display  page  cells  to  indicate  things 
like  "lead  ship  in  this  period  (L)".  Since  both  job 
type  and  job  series  type  are  specified  on  the  screen 
using  single-character  codes,  this  block  has  matching 
arrays  of  names  and  character  codes  to  facilitate 
searching  and  retrieval. 

ASOPRM  ASsigner  Outbound  PaRaMeters.  FORTRAN  parameter 

statements  and  variables  with  Command  System 
parameter  menu  parameter  settings  of  interest  to  the 
DB  update  phase. 
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FILENAME 

ASRBUF 

ASTFR 

PVALUE 

CONST 

FLD05 

FLD06 

IOC 


TABLE  12-1.  Include  Files  Used  By  the  Assigner 


PURPOSE 


ASsigner  ship  Record  BUFfer.  Holds  the  first  form  of 
schedule  records  generated  during  the  DB  update 
phase.  Managed  as  a  linked  list  which  holds  records 
only  for  the  current  complexity  group.  The  records 
consist  only  of  class  name,  job  series  type,  the 
"display  date"  (the  schedule  date  derived  from  the 
given  job's  column  position  on  the  display  page),  and 
the  adjust  date  (the  milestone  used  as  the  basis  date 

during  date  spreading - need  not  be  the  same  as  the 

display  milestone).  Schedule  records  need  only 
contain  this  information  through  the  "hard-wire" 
tuple  removal  phase  of  the  update  process. 

ASsigner  Tuple  File  Record  buffer.  This  include  file 
contains  two  common  blocks  which  function  as  record 
buffers  for  use  in  RELATE  queries  of  and  updates  to 
the  ncjodat.proj j  relation,  and  for  similar 
operations  performed  on  the  schedule  record  holding 
file.  During  the  actual  relation  update  step  it  is 
necessary  to  have  a  record  from  each  source  current 
in  memory  at  all  times. 

The  System  Core  data  structure  which  holds  the 
current  values  for  all  command  system  parameter 
menus.  Consulted  during  both  the  initialization 
phase  and  the  DB  update  phase.  In  both  cases  the 
values  are  read  by  a  service  routine  located  in 
recomp. src  and  moved  into  common  blocks  dedicated  to 
the  assigner. 

A  block  of  commonly  used  constant  values,  e.g.  the 
largest  32-bit  integer  number. 

Field  list  for  reads  and  updates  of  the  ncjodat.proj  j 
relation.  The  astfr  include  file  must  appear  above 
it  in  any  routine  in  which  it  is  used. 

Field  list  for  reads  of  the  ncjdat.descj  job 
description  relation.  Associated  with  the  rcrd06 
include  file. 

The  standard  ALIAS  common  block  of  key  FORTRAN  i/o 
unit  numbers,  e.g.  those  for  terminal  input  and 
output. 


LPRNTS 

PRMCRS 

R  CRD  06 

SCENAR 

SCRCHR 

SENPRM 

SNRREP 

TDD ATE 


The  ALIAS  array  of  logical  variables  (switches) 
controlling  the  operation  o£  diagnostic  prints. 

Permanently  open  ALIAS  cursors  (in  each  process)  . 

Used  only  by  the  iniprc  and  liston  routines. 

Record  buffer  which  receives  tuples  from  the 
ncjdat.descj  relation.  Used  only  as  word-aligned 

temporary  storage - the  job  descriptions  are  always 

moved  into  /asjd/. 

Information  about  the  current  scenario  and  about 
cursors  opened  through  the  DBIF.  Initial  values  for 
the  block  are  swapped  into  the  assigner  process 
memory  during  the  call  to  iniprc. 

FORTRAN  parameter  statements  defining  the  command 
characters  the  assigner  will  recognize  and  a  code 
number  for  each  one.  This  block  is  actually  used  by 
several  modules,  so  the  assigner  does  not  have  a 
function  it  will  perform  for  each  command  character 
found  here. 

Scenario  system  parameters.  Required  by  the  /scenar/ 
block. 

A  block  of  declarations  supporting  the  scenario 
system's  low-level  utilities  which  search  the 
scenario  system  extra  data  segment  for  scenario  key 
values.  Direct  use  of  these  utilities  is  made  in  the 
assigner  when  SELECTS  are  given. 

The  file  of  declarations  and  statement  functions 
which  supports  full  use  of  the  ALIAS  date 
manipulation  utility  subsystem  by  a  routine. 
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During  the  DB  update  phase  two  additional  common  blocks 
hold  status  information,  /asoprnv/  and  /asnocr/. 

12.4.2  Valid.  Mam.es  Data  Structure 

The  /asnvld/  common  block  contains  lists  of  all  the 
of-interest  (valid)  yard,  class,  and  job  type  names  turned  "on" 
by  the  user  in  the  assigner' s  Command  System  list  menus.  Job 
series  type  names  are  also  read  from  the  jstyp. legals  relation 
and  stored  here. 

The  job  type  and  job  series  type  lists  are  maintained  in 
dual  form:  the  names  are  needed  during  ini  tied  ization  and  DB 
update  phases  for  comparison  with  field  values  in  relations,  but 
the  single-chararacter  code  values  used  on  the  display  screen  to 
represent  these  names  are  needed  during  the  editing  phase.  The 
names  are  maintained  in  an  array,  while  the  code  values  are 
maintained  in  corresponding  elements  of  character*!  arrays.  A 
match  on  an  element  of  one  array  thus  automatically  yields  an 
index  number  for  the  element  of  the  corresponding  array. 


The  code  characters  are  read  from  the  jobtyp. legals  and 
jstyp. legals  relations.  Additional  job  type  code  names  and 
series  type  names  must  be  assigned  unique  character  codes  in 
these  relations  when  they  are  added  to  the  system. 

12  *4*3  iJs  A  an# 

A  third  block  in  asgn.incl  (/basgn/)  is  the  transfer  record 
used  to  communicate  with  the  bufasn  file.  Only  a  single  assign¬ 
ment  record  is  ever  in  memory  at  any  given  time,  and  it  is  stored 
in  this  block.  Bufasn  is  a  direct-access  binary  file  with  one 
record  for  each  assignments  record  (class-job  within  a  yard) 
displayable  on  the  screen.  Bufasn  records  are  managed  as  a  set 
of  linked  lists,  one  list  per  yard.  The  firstp  array  in  /nasgn/ 
holds  the  record  number  of  the  first  assignments  record  for  each 
yard;  subsequent  records  are  pointed  to  using  the  first  word  of 
the  bufasn  record.  The  remainder  of  the  record  contains  the 


class  name,  a  storage  location  for  ASNORDER  (which  holds  a  time 
stamp  of  when  the  record  was  first  entered),  the  row-total  of 
assignments  in  the  record,  and  two  arrays  giving  the  number  of 
assignments  in  each  cell  (display  column)  and  a  code  indicating 
the  character  code  to  appear  in  each  cell. 

This  data  structure  conserves  on  memory  to  the  maximum 
extent  possible,  is  efficient  in  terms  of  retrieval  time  during 
display  generation,  and  provides  abort  protection  since  all 
assignments  are  maintained  on  disk  at  all  times. 

Display  records  are  generated  dynamically  from  this  data 
structure  during  the  refresh  process,  rather  than  being  held  in 
memory . 

An  additional  assignments  record  structure  is  used  during 
the  IB  update  phase.  This  consists  of  the  /ashldr/  common  block, 
which  is  a  record  containing  the  equivalent  of  the  two  arrays 
from  a  bufasn  record,  and  an  extra  data  segment  which  can  hold 

several  of  these  records.  The  segment  stores  the  records  for  all 
ships  in  the  current  complexity-group  during  the  new- tuple  gener¬ 
ation  process.  The  segment  is  used  to  conserve  on  memory;  each 
assignments  record  requires  520  words,  since  260  periods  is  the 
configured  capacity  of  the  assigner. 

12.4.4  Ths,j<?fc>  fl&asilBtiflna  EBAa^LtLactJULs 

New  tuples  are  produced  by  the  DB  update  phase  one  class- 
job  at  a  time  after  date- spreading  has  been  completed.  Several 
job  description  records  may  be  required  for  any  given  class-job 
since  each  individual  ship  may  be  of  a  different  job  series  type 
(e.g.  LEAD,  ORDFOL) .  All  the  descriptions  for  a  given  class-job 
at  a  given  yard  are  thus  maintained  in  memory  simultaneously 
during  schedule  generation  (to  avoid  time-consuming  multiple 
searches  of  ncjdat.descj)  in  the  /asjd/  common  block.  This  block 
is  a  series  of  arrays  dimensioned  by  the  maximum  memory  capacity 
for  job  descriptions.  The  routines  which  use  the  block's  con- 


tents  first  call  the  asgpf  routine  to  get  an  index  to  a  'row'  in 
/asjd/,  and  then  just  supply  this  index  in  any  assignment  state¬ 
ments  using  /asjd/  variables  as  the  source. 


/asjd/  is  loaded  by  reads  from  ncjdat.descj  using  /rcrd06/ 
as  the  transfer  record.  The  aspftr  service  routine  is  called 
after  each  read  to  transfer  the  given  description  to  a  'row'  in 
/asj  d/ . 


12.4.5 


Schedule  tuples  are  handled  differently  by  the  initializa¬ 
tion  and  DB  update  phases.  During  initialization,  a  subset  of 
tuple  fields  are  read  into  a  six-tuple  array  locally  static  in 
the  asndbi  routine.  Riis  supports  the  ordered- retrieval  algor¬ 
ithm  discussed  in  Section  12.5.1. 


Several  schedule  record  data  structures  are  used  during  the 
DB  update  phase.  The  algorithm  first  generates  one  record  per 
assignment  in  the  /asrbuf/  common  block,  which  is  managed  as  a 
linked  list  with  a  capacity  of  200  ships.  Records  are  placed  in 
the  block  in  order  of  ship  adjustment  milestone  in  order  to 
support  the  date  spreading  algorithm. 

After  dates  are  spread  complete  tuple  images  are  generated 
and  placed  in  a  temporary  holding  file  in  the  log-on  group  called 
tupfil.  The  /astfr/  block  in  the  astfr.incl  include  file  is  the 
record  structure  used  during  read/writes  from/to  this  file. 

During  the  actual  update  of  ncjodat.proj j ,  records  are  read 
simultaneously  from  tupfil  (into  /astfr/)  and  from  ncjodat. proj j 
(into  /astup/  in  the  astfr.incl  file)  and  compared,  with  the 
/astfr/  image  eventually  being  written  into  ncjodat. 


A  command  given  during  the  editing  phase  may  consist  of  up 
to  three  parts:  its  first  or  main-command  character,  its  second 


or  subcommand  character,  and  one  or  more  numbers  separated  by 
commas.  The  main  and  subcommand  characters  are  compared  with  the 
list  of  known  command  codes  in  the  scrchr.incl  file  of  FORTRAN 
parameter  statements  and  converted  into  index  numbers.  These 
indexes  and  the  user-supplied  numbers  are  then  stored  in  vari¬ 
ables  declared  in  the  asgn  program  unit  (thus  effectively  global 
variables)  ,  and  are  passed  to  the  proper  main-command  processing 
routine. 

The  search  for  a  command  character  match  is  done  on  the 
scrchr  parameter;  the  location  of  the  match  serves  as  the  index. 
Note  that  the  index  values  formally  assigned  to  the  characters  in 
the  rest  of  the  scrchr.incl  file  therefore  depend  on  the  position 
of  the  character  in  the  scrchr  string. 

12.5  PROCESSING  LOGIC 

The  assigner  is  a  very  large  program  replete  with  logic  and 
algorithms.  In  this  section  only  the  major  algorithms  whose 
structure  and  operation  are  not  fairly  obvious  in  the  code  will 
be  discussed.  To  thoroughly  understand  how  part  or  all  of  the 
program  works  it  is  necessary  to  consult  the  in-line  documen¬ 
tation  and  the  code  itself. 

Table  12-2  contains  an  annotated  list  of  all  of  the  FORTRAN 
routines  in  the  assigner,  not  including  utilities. 

The  calling  tree  diagrams  which  appear  below  show  only 
those  non-utility  routines  maintained  as  part  of  the  ASGNxxx.src 
source  code  libraries.  In  addition,  middle-level  routines'  sub¬ 
sidiary  trees  are  typically  shown  on  only  the  first  diagram  in 
which  they  appear  in  order  to  save  space. 


12.5  .1 


Figure  12-14  is  a  calling  tree  diagram  for  the  initializa¬ 
tion  phase  of  assigner  execution.  Also  consult  Figure  12-2 
(initialization  structure)  for  a  pictorial  display  of  the  logic. 
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ROUTINE 

ASCDAY 


AS  CDS  P 


ASCMPG 


ASDWRN 


ASGN 


ASGNXT 


ASGPF 


Table  12-2 .  Annotated  List  of  Assigner  Routines 


PURPOSE 


Low-level  DB  update  .logic  utility  which  computes 
schedule  milestone  dates  given  a  basis  date  and  the 
index  of  a  job-description  in  /asjd/.  The  job 
description  gives  time  intervals  between  milestones; 
ascday  just  determines  the  appropriate  number  of 
intervals  to  increment  the  basis  date  by.  An 
integer*4  function. 

A  DB  update  schedule  data  modification  routine  which 
ensures  that  the  award  date  in  a  schedule  conforms  to 
the  default  award  day  (DFLTAWDAY)  field  value  in  the 
appropriate  job  description  relation.  The  routine  is 
operative  only  when  the  display  periods  are  years. 

An  integer*4  function. 

DB  update  routine,  "ASsigner-CoMPlexity  Group.  " 

Finds  out  what  complexity  group  each  class-job  of 
interest  in  a  given  shipyard  falls  in.  Output  is  a 
series  of  code  numbers  corresponding  to  class- job 
names,  with  each  group  having  the  same  code  number 
(the  numbers  are  arbitrary)  . 

Prints  a  warning  to  the  effect  that  a  hard-wire 
(no-assigner-modif i cation)  schedule  has  been  deleted 
because  there  was  no  assignment  left  for  it  on  the 
assigner  display  page.  Part  of  the  DB  update  logic. 

The  main  program  unit  for  the  assigner  module.  Both 
supervises  the  three  main  phases  of  execution  by 
making  appropriate  calls  and  is  the  executive  for  the 
editing  phase. 

Moves  all  the  assignments  records  for  class-jobs  in  a 
given  complexity  group  into  the  hldbuf  data  structure 
(extra  data  segment)  in  preparation  for  date 
spreading  and  schedule  generation.  Part  of  the  DB 
update  logic. 

Integer  function  returning  the  index  in  /asjd/  of  the 
job  description  most  appropriate  for  a  given 
class-job  in  a  given  yard  of  a  given  series  type. 
Presumes  that  a  description  for  the  class-job  is 
available;  this  routine's  task  is  to  find  the  closest 
match  on  series  type.  Asgpf  assumes  an  appropriate 
call  to  aspfld  has  been  made  to  load  the  job 
descriptions  for  the  given  yard  and  class-job  into 
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Table  12-2.  Annotated  List  of  Assigner  Routines 


ROUTINE 


ASHARD 


ASHTRB 


ASJOI 


ASN1 ST 


AS N ADD 


ASNALO 

ASNALT 

ASNAMM 


PURPOSE 


/asj  d/. 

DB  update  routine  which  removes  ship  records 
"associated"  with  "hard-wired"  or  no-assigner-modify 
tuples  in  ncjodat.proj  j .  The  method  is  to  read 
ncjodat  (via  a  selection)  andr  for  every  hard-wire 
tuple  found,  locate  the  ship  record  of  the  same 
class/ job  type  with  the  closest  display  date,  and 
remove  it  from  the  linked  list  in  /asrbuf/ .  If  there 
is  no  ship  record  in  the  same  period,  it  is  assumed 
the  user  wants  the  hard-wire  tuple  deleted,  which  is 
done. 

DB  update  routine  which  converts  the  hldbuf 
representation  of  assignments  records  for  a  given 
ship- job  complexity  group  to  the  /asrbuf/  linked  list 
of  ship  records.  The  ship  records  include  both  a 
display  date  and  an  adjustment  date  estimate;  these 
are  used  by  the  date  spreading  logic. 

Part  of  the  DB  update  logic.  Logical  function  which 
decides  whether  a  given  class-job  needs  to  have 
schedule  records  generated  for  posting  to 
ncjodat.proj j.  "ASsigner  Jobs  Of  Interest." 

An  assigner  version  of  the  fddate  date  utility,  which 
returns  the  first  day  of  a  given  period.  An  integer 
function. 

Contains  entry  point  asnins.  Adds  a  new  yard  and/or 
class-job  assignment  to  the  assignments  record  buffer 
and  the  display  page.  Prompts  the  user  for  names  and 
assignments,  does  error  checking,  and  puts  the 
response  into  the  data  structures.  Implements  the 
"A"  and  "I"  commands. 

Low-level  editing  phase  routine  which  allocates  a  new 
assignment  record  (bufasn  record)  onto  the  free  chain 
(linked  list)  of  such  records. 

Implements  the  "M"  command  at  a  low  level  by  writing 
the  modified  assignments  record  as  given  by  the  user 
to  the  record  buffer. 

Implements  the  yard/ class- job  name  changing 
capability.  Prompt  the  user  for  the  new  name  and 
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Table  12-2.  Annotated  List  of  Assigner  Routines 


ROUTINE 


ASNCAL 

ASNCHD 

ASNCHK 

ASNCLN 


ASNCLR 

ASNCMD 


ASNCNV 


ASNCOD 


ASNCPY 


PURPOSE 


saves  it  into  the  data  structure. 

Sets  flags  such  that  the  next  screen  refresh  will 
center  around  the  yard  whose  index  is  given  in  the 
argument. 

Obsolete. 

Workhorse  routine  for  the  help  subsystem;  when  the 
user  (typically  a  developer)  asks  for  the  diagnostic 
support  part  of  the  help  subsystem  (via  ??)  and  gives 
a  command  there,  this  routine  executes  the  command. 

Removes  assignments  based  on  a  load  from  the 
relations  with  schedules  for  the  historical  and 
current  epochs  by  re-reading  those  relations  and 
decrementing  the  assignments  buffer  (bufasn)  for 
every  one  found.  Clumsy  and  time-consuming  but  the 
only  way  short  of  marking  each  bufasn  element,  also 
clumsy. 

Does  a  screen  clear  or  formfeed,  depending  on  whether 
output  is  to  the  screen  or  the  printer. 

This  routine  prompts  for,  reads,  and  decodes  user 
command  input  during  the  editing  phase.  Commands  are 
broken  into  the  main  and  sub  command  characters  and 
ary  numeric  specifications  which  follow  them. 

Executive  which  supervises  conversion  of  the  bufasn 
assignments  records  into  ncjodat.proj j  tuples.  See 
Figure  12-8  for  a  summary  of  its  flow  of  control. 

Servant  of  asndbi,  used  to  set  the  job  series  type 
letter  code  value  for  a  particular  cell  of  the 
buffer.  Ensures  that  the  code  shown  on  the  page  end 
up  being  the  one  attached  to  the  "highest"  ship  "in" 
the  cell,  where  the  order  from  highest  to  lowest  is, 
e.g.,  lead  ship,  first  follow,  lead  in  yard,  ordinary 
follow.  If  there  are  8  ships  in  the  cell  (i.e.  ad  8 
is  displayed  there  on  the  screen)  and  two  of  them  are 
a  lead  ship  and  a  first  follow,  the  cell  will  show  an 
'L1  . 


Makes  a  new  copy  of  a  yard  or  a  class- job  within  a 
yard,  prompting  user  for  the  names  for  the  new  copy, 
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Table  12-2.  Annotated  List  of  Assigner  Routines 


ROUTINE 


ASNDBI 


ASNDBR 


ASNDEL 

ASNDOT 

ASNDWN 

ASNEC 

ASNEND 


PURPOSE 


and  making  the  necessary  changes  to  bufasn  and 
/asgn/. 

Executive  for  the  load  of  schedules  from  the  data 
base  and  their  conversion  into  assignments  records  in 
bufasn.  Reads  records  in  key  order  from  all  six 
schedule  relations  simultaneously  (see  text) , 
constructing  assignment  records  as  it  goes.  Creates 
new  yards  and  classes  within  yards  as  necessary.  On 
completion  of  the  DB  read,  reorders  assignment 
records  according  to  input  order  if  user  has  asked 
for  that. 

The  DB  update  phase  routine  which  actually  posts  the 
newly  created  schedules  to  the  ncjodat.proj j 
relation.  Must  ensure  that  at  the  close  of  the 
assigner  session  the  schedules  in  ncjodat  are 
completely  in  consonance  with  the  assignments  which 
were  showing  on  the  display  screen.  Must  also  take 
into  account  the  fact  that  the  user  could  have  been 
working  with  a  limited  period  of  time  or  a  limited 
list  of  valid  yards/cl  asses/ job  types.  Operates  in  a 
fashion  basically  similar  to  the  asndbi  routine:  a 
tuple  from  the  relation  and  a  record  from  the  new 
tuple  holding  file  are  always  kept  constant  in 
buffers;  action  decisions  are  made  on  the  basis  of  a 
comparison  of  their  key  values.  The  actions  possible 
are  to  get  the  next  tuple,  update  the  existing  one, 
delete  it,  or  add  a  new  tuple. 

Deletes  one  or  more  assignments  records  from  the  data 
structure,  up  to  an  entire  yard.  Implements  the  "D" 
command. 

Mid-level  utility  which  prints  the  prompt  ("dots") 
for  assignment  record  addition  or  modification.  Also 
reads,  checks,  and  decodes  the  input. 

Does  the  computations  for  a  next-vertical- page 
command. 

Reports  a  command  input  error  or  some  other  status 
condition  to  the  user,  pausing  to  let  the  user  read 
the  message. 

An  obsolete  close- relations  and  finish  up  routine. 
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Table  12-2.  Annotated  List  of  Assigner  Routines 


ROUTINE 

ASNEOI 

ASNFND 

ASNPOL 

ASNGOQ 

ASNHLD 

ASNHLP 

ASNHUL 


ASNINI 


PURPOSE 


Resets  i/o  unit  numbers  back  to  the  terminal  when  an 
end-of-file  is  encountered  on  the  current  input  unit 
number.  Useful  for  detecting  and  resetting  after  the 
end  of  execution  of  the  "P"  command,  for  example. 

Low-level  routine  which  locates  a  particular 
class- job' s  assignments  in  a  particular  yard  and 
brings  it  into  the  assignment  buffer  in  /asgn/. 

Implements  the  vertical  page- forward  command  (+  and 
++) .  Causes  the  index  numbers  of  the  top  yard  and 
class-job  (used  by  the  display  refresh  logic)  to  be 
recomputed. 

Logical  function  which  asnout  uses  to  ask  the  user  if 
he  wants  to  skip  the  DB  update  step. 

Implements  the  ”H”  (hold)  command;  suspends  the 
assigner  process  and  reactivates  the  Core  process. 

Assigner  help  subsystem  executive.  Responds  to  the 
command.  Prompts  the  user  with  a  menu  of  help 
choices.  Accepts  and  implements  the  response. 

Responsible  for  updating  the  hull  numbers  in 
schedules  newly  posted  to  ncjodat.proj j  during  the  DB 
update  phase.  As  posted  the  schedules  have  negative 
hull  numbers  to  ensure  that  no  unary  key  violations 
occur  as  a  result  of  collisions  with  "hard-wired" 
schedules.  The  routine  carries  out  its  task  by 
having  RELATE  execute  the  newhul.rprocs  EXECUTE  file, 
which  contains  the  actual  logic.  However,  asnhul 
must  write  proper  scenario  key  field  values  into 
newhul.rprocs  before  it  is  executed  so  that  scenario 
security  is  maintained. 

Executive  for  the  initialization  phase.  Does  or 
supervises  completion  of  everything  necessary  before 
user  assignments  editing  can  begin.  Major  steps 
include  reading  the  iniasn.sysro  configuration  file, 
creation  of  the  bufasn  and  annasn  working  files,  load 
of  valid  lists  from  the  list  type  relations,  and 
loading  of  schedules  from  the  data  base  and 
conversion  of  these  into  assignments  records  in 
bufasn. 
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Table  12-2.  Annotated  List  of  Assignee  Routines 


ROUTINE 


ASNINS 


ASNLBL 


AS  NIBS 


ASNLEV 


ASNLFT 


ASNLPR 


ASNMNP 


ASNMOD 


ASNMOV 


ASNOUI 


PURPOSE 


An  entry  point  in  asnadd  which  lets  the  user  specify 
where  on  the  display  page  the  new  yard/assignments 
are  to  be  placed. 

Prints  the  top  two  rows  of  the  screen  display,  which 
give  status  information  (i.e.  name  of  the  current 
scenario)  and  the  period  labels. 

Performs  part  of  the  initialization  of  the  /asgn/ 
common  block,  in  particular  for  those  variables  whose 
values  depend  on  setting  in  the  Command  System's 
assigner  parameter  menu,  e.g.  time  units/period  type 
option.  Formats  and  stores  relvant  parts  of  the 
screen  display. 

Closes  all  files  and  relations  at  the  end  of  the  DB 
update  phase,  preparatory  to  assigner  process 
termination. 

Contains  the  asnrgt  entry  point  as  well.  Implements 
the  page- right  and  page-left  horizontal 
(over- periods)  paging  commands  (>,  >>,  <  <<)  . 
Recomputes  column  index  specifications  used  by 

the  display  refresh  logic. 

Implements  the  "P"  command  by  redirecting  display 
output  to  the  user's  default  hard  copy  output  device 
and  by  sending  all  available  pages  to  this  unit. 

Part  of  the  assigner  help  subsystem;  displays  the 
values  of  selected  Command  System  assigner  parameter 
menu  parameters  for  user  inspection/reminder. 

Modifies  an  existing  assignment  record  (i.e., 
implements  the  "M"  command)  .  Prompts  the  user  with 
the  existing  assignments  line  and  the  dots  and 
updates  the  data  structures. 

Implements  the  "Move  option  of  the  "Relocate" 
command;  moves  a  yard  or  a  cl  ass- job's  assignments  to 
a  different  location  on  the  display  screen  or  to  a 
different  yard. 

Initialization  routine  for  the  DB  update  phase  logic. 
Open  relations  and  the  tuple  holding  file  and  sets  up 


12-41 


Table  12-2.  Annotated  List  of  Assigner  Routines 


ROUTINE 

ASNOUT 

ASNPOP 

ASNPRN 

ASNPRO 


ASNPKV 


ASNRDC 


ASNREF 


ASNREO 


ASNRFH 


PURPOSE 


important  variables  based  on  Command  System  parameter 
menu  settings. 

Executive  for  the  DB  update  phase  of  execution  (the 
"outbound  leg").  See  Figure  12-7. 

Implements  the  "~"  and  "Q"  commands;  an  interface 
routine  between  the  editing  and  DB  update  code  which 
calls  the  DB  update  executive. 

Formats  and  prints  an  assignments  buffer  record,  i.e. 
part  of  the  contents  of  the  valasn  array  in  /asgn/. 

Conditionally  prints  prompt  text,  based  on  the 
setting  of  the  prompt  flag  in  /asgn/.  Prompt  is  set 
to  true  when  operation  is  interactive,  false  when 
responses  are  taken  from  a  file  or  some  other  source. 
Routines  which  prompt  through  asnpro  are  thus 
appropriate  for  use  as  processing  utilities  as  well 
as  for  user  interaction. 

Implements  the  vertical  page-up  command  ("-  and  — ")  . 
Computes  the  index  numbers  of  the  new  top  yard  and 
class  and  stores  them  for  reference  by  the 
displ ay- refresh  logic. 

A  sophisticated  terminal  prompt- and- read  utility. 
Takes  prompt  text  and  directives  and  returns  the  user 
response.  Optionally  takes  response  as  input  also 
and  just  runs  it  through  its  check  logic.  Checks  for 
pop  (undo)  character  and  for  help  requests,  and 
prints  help  from  the  hlpasn  file  if  a  "?"  is  given. 
Upper-  or  lowercases  the  input. 

Conditionally  calls  asnrfh  for  a  screen  refresh: 
does  so  if  prompt  is  true  (we're  interactive)  and  if 
the  user  has  requested  auto- ref resh. 

Re-orders  the  display  order  of  assignments  within  a 
yard  according  the  their  input  order,  as  obtained 
from  the  values  in  the  ASNORDER  field  of  the  schedule 
relations.  Called  only  when  user  has  chosen  INPUT 
ORDER  rather  than  ALPHABETIC  on  the  parameter  menu. 

Performs  a  screen  refresh,  i.e.  prints  the  current 
display  page  of  the  assignments  buffer  to  the  screen. 
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Table  12-2 


Annotated  List  of  Assigner  Routines 


ROUTINE 


ASNRGT 


ASNRLC 


ASNSEE 


ASNSWP 

ASNTPE 

ASNTPI 

ASNTPX 


ASNTUP 


ASNUNL 


ASNVAL 


ASNWID 


PURPOSE 


A  mid-level  executive  which  does  lots  of  retrievals. 

Page- right.  An  entry  point  in  asnlft?  see  its 
description  above. 

Implements  the  relocate  ("R")  command  and  its 
permutations.  Either  repositions  a  yard  or  class-job 
on  the  display  page  or  make  a  copy  of  a  class- job 
assignment  record  under  another  d ass- job  name. 

Executive  for  the  "??"  (diagnostic  assistance)  help 
option. 

Inoperative. 

These  three  entry  points  of  the  asntpx  routine  form 
the  schedule-tuple  retrieval  subsystem  serving  asndbi 
during  the  initialization  phase.  The  routines  manage 
a  static  (local)  buffer  which  holds  six  schedule 
tuples,  one  per  relation.  The  tuple  images  in  this 
buffer  are  the  next  valid  tuple  in  sequence  from  each 
relation.  Asntpi  loads  this  buffer.  A  call  to 
asntpx  returns  the  image  which  has  the  lowest  key 
value  of  the  six  available;  asntpx  fills  in  the 
"empty"  location  with  a  new  image  before  it  returns. 
Asntpe  just  closes  the  schedule  relations  when  the 
read  is  complete. 

A  DB  update  utility  routine  used  by  asndbr  to 
retrieve  the  next  tuple  from  ncjodat.proj j  into  the 
tuple  holding  buffer.  Checks  for  both  actual 
end-of-file  and  for  end-of- scenario. 

Takes  a  schedule  relation  tuple  image  and  unloads  its 
fields  into  individual  variables,  passing  their 
values  back. 

Called  when  an  old  buf asn/cmnasn  exists  and  user 
wants  to  use  it.  Flushes  yards  and  classes  which  are 
not  valid  under  the  current  invocation  (i.e.  not 
turned  on  in  the  list  menus,  or  not  even  appearing  if 
this  is  a  different  scenario) . 

Given  a  start  period  for  screen  display  (i.e.  the 
period  number  of  the  leftmost  column,  returns  the 
number  of  columns  to  print  and  the  index  of  the  last 
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Table  12-2.  Annotated  List  of  Assigner  Routines 


ROUTINE 


ASNYRD 

ASOCMP 


ASODEL 


ASPFLD 


ASPFTR 


AS  P  RD  2 
ASPRED 


ASTUPF 


ASUBDL 


PURPOSE 


column.  A  utility. 

Used  during  display  generation,  prints  a  yard  name 
and  the  " — h — + — "  grid  lines. 

A  character  string  comparision  utility  used  by  asndbr 
to  decide  if  a  given  schedule  key  value  is  greater  or 
less  than  another.  An  integer  function  returning  -1 
(key  less),  0  (key  equal),  or  +1  (key  greater). 

A  servant  of  asndbr,  called  when  asndbr  thinks  it  has 
an  ncjodat.proj j  tuple  requiring  deletion.  This 
routine  decides  if  the  deletion  is  appropriate  (might 
not  be  a  valid  job  for  this  invocation,  might  be  a 
no- assigner- modify  tuple  already  processed  by  ashard) 
and  does  it  if  necessary.  Asubdl  is  called  to  delete 
tuples  in  subsidiary  relations. 

Reads  the  job  description  tuples  for  a  given 
class-job  in  a  given  yard  into  the  /asjd/  storage 
block  for  use  by  other  DB  update  routines. 

A  slave  of  aspfld  which  just  copies  a  job  description 
from  the  /rcrd06/  buffer  in  which  RELATE  placed  it 
into  an  index  location  in  /asjd/.  A  simple  xmit  is 
not  feasible  due  to  the  structure  of  /asjd/,  which  is 
in  turn  mandated  by  the  requirements  of  the  data 
calculation  logic. 

These  two  routines  implement  the  schedule 
date- spreading  logic  of  the  DB  update  phase.  They 
operate  on  the  /asrbuf/  linked  list  of  ship  records, 
changing  only  the  adjustment-basis  dates.  Asprd2  was 
the  original  algorithm;  it  is  not  in  the  calling 
tree,  having  been  replaced  by  the  modified  version 
now  called  aspred,  but  is  functional.  It  was 
replaced  as  a  matter  of  taste  and  might  be  offered  as 
a  parametrically  invoked  option  in  the  future. 

Part  of  the  DB  update  phase,  astupf  converts  /asrbuf/ 
ship  record  to  tuple  images  in  the  tupfil  direct 
access  holding  file.  It  follows  date  spreading  and 
preceeds  the  actual  update  of  ncjodat.proj  j. 

When  a  no-assigner- modify  (hard-wired)  tuple  is 
deleted  from  the  ncjodat. proj j  relation  by  the 
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Table  12-2.  Annotated  List  of  Assigner  Routines 


ROUTINE 


ASYCLS 

CKPF 

CMNGET 

CMNSAV 

DBAS  IS 

GETASN 

INICLS 

INIYRD 


PURPOSE 


assigner  (might  happen  when  its  whole  yard  was 
deleted,  for  example)  then  any  tuples  dependent  on  it 
in  subsidiary  relations  must  also  be  deleted,  much  as 
the  DBU  deletes  subsidiaries  automatically  (this  is 
not  required  when  assigner-modif iable  tuples  are 
deleted  because  it  is  assumed  that  the  DBU  marks  any 
"father”  schedules  as  AUTOMOD="NO"  when  son  tuples 
are  added  in  the  subsidiary  relations) .  This  routine 
does  the  extra  deletions,  learning  which  relations 
have  something  to  be  deleted  by  the  status  of  the  bit 
map  in  the  SUBRELUMAP  field  of  the  schedule  tuple 
about  to  be  deleted  (the  DBU  is  assumed  to  maintain 
this  field  as  well)  . 

Part  of  the  DB  update  logic.  Constructs  a  sorted 
list  of  the  class-jobs  for  which  update  must  be  done 
in  a  given  yard.  Note  that  repair  jobs  can  be 
ignored. 

Checks  to  see  if  a  job  description  is  available  when 
the  user  adds  or  modifies  assignments,  thus  providing 
advance  warning  of  the  necessity  to  go  add  the 
description  using  the  DBU  during  or  before  the  DB 
update  phase  in  cases  where  no  description  has  been 
entered.  Logical  function. 

These  two  entry  points  in  the  annget  routine 
retrieve  and  save  /asgn/  status  variables  from/to  the 
cmnasn  file. 

A  character  function  used  during  the  initialization 
phase  to  set  the  name  of  the  KEEL/DRYDOCK  field  in 
field  lists  for  schedule  relation  reads  depending  on 
whether  the  relation  holds  repair  or  new  construction 
job  data. 

This  routine  and  its  putasn  entry  point  save  and 
return  records  from  the  bufasn  assignment  record 
holding  file. 

Does  the  necessary  setup  to  establish  a  new  class  in 
a  yard.  Doesn't  create  the  bufasn  record,  just  sets 
/asgn/  values. 

Does  the  necessary  setup  to  establish  a  new  yard. 
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ROUTINE 

LOCYRD 

NEWYRD 

NXTCLS 

NXTCLZ 

PUTASN 

REMCLS 

REMYRD 

RES TAT 
SCNGET 

SVSTAT 

TMSTMP 


Table  12-2.  Annotated  List  of  Assigner  Routines 


PURPOSE 


Does  a  binary  search  of  the  (sorted)  array  of 
existing  yard  names  for  a  match,  returning  the 
element  location  of  the  match.  An  integer  function. 

Adds  a  new  yard  to  the  list  for  which  assignments  can 
be  made,  prompting  the  user  for  the  name.  Ensures 
that  the  list  of  yards  remains  sorted. 

Retrieves  the  next  tuple  of  interest  from  the 
schedule  relation  open  on  the  given  cursor.  Reads 
records  (points  under  some  circumstances)  until  one 
matching  all  retrieved,  criteria  (valid  display  basis 
date,  yard  name,  class  name,  etc.  are  found) . 

A  debugging  support  routine  which  prints  a  tuple  and 
other  data  to  ioutp.  Used  meanly  by  nxtcls. 

An  entry  point  in  getasn,  saves  an  assignments  record 
to  the  given  location  in  the  bufasn  file. 

Removes  a  class  (i.e.  an  assignment  record)  from  a 
yard  completely.  Pulls  it  out  of  the  bufasn  holding 
file  linked  list  and  makes  the  necessary  /asgn/ 
changes. 

Removes  an  entire  yard  and  all  its  assignments 
records. 

Entry  point  in  svstat;  see  below. 

An  entry  point  in  CMNGET  which  read  the  first  record 
of  an  existing  cmna«n  file  to  see  what  scenario  it 
was  created  under. 

This  routine  and  its  entry  point  restat  save  and 
restore  the  current  values  of  assigner  control 
variables  before  and  after  the  "P"  command  is 
executed.  "P”  is  implemented  by  using  the  standard 
logic  but  with  alternative  control  settings;  thus  the 
setting  must  be  kept  and  restored  if  the  user  is  to 
be  left  in  the  same  state  as  before  "P"  was  given. 

An  integer*4  function  which  computes  a  time-stamp  for 
placement  in  the  ASNORDER  field  of  newly  generated 
schedule  records  so  that  on  next  initialization  the 
assigner  will  be  able  to  retrieve  them  in  the  order 
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TUPFRD 


they  appeared  on  the  display.  Every  member  of  a 
given  cl  ass- job  gets  the  same  time  stamp. 


VALCLS 


VALYRD 


VLDLST 


VLDLSZ 

YCASN 

YCASNI 

YCASNR 


A  low  level  routine  used  by  asndbr  to  fetch  the  next 
schedule  record  from  the  tuple  holding  file. 

Given  a  class  name  (including  job  type  definition 
character,  returns  whether  it  is  valid  (usable)  under 
this  scenario,  i.e.  whether  class  and  job  type  are 
"on"  in  list  menus.  A  logical  function. 

Logical  function  returning  .true,  if  the  given  yard 
name  is  on  the  valid  list  for  this  scenario  and 
assigner  invocation. 

Initializes  the  /asnvld/  common  block's  lists  of 
yards,  classes,  and  job  types  that  are  valid  for  this 
invocation,  i.e.  that  it's  ok  to  work  with.  Does 
this  by  calls  to  the  liston  and  qsortc  utilities, 
primarily. 

A  diagnostic  utility  for  vldlst  which  prints  out  the 
lists  of  valid  names  and  codes  after  they're  set  up. 

Service  routines  which  implement  a  "control-Y" 
capability  to  abort  printout  of  unwanted  screen 
refreshes.  Ycasn  is  called  when  the  user  invokes  the 
interrupt  by  pressing  the  control  and  Y  ktys,  ycasnr 
can  be  called  later  to  detect  that  the  interrupt 
occurred,  and  ycasni  resets  the  flag  which  remembers 
the  interrupt.  The  routines  do  not  issue  the  ON 
statement;  the  routine  (s)  using  the  capability  must 
issue  the  ON. 


Initialization  is  overseen  almost  entirely  by  the  ASNINI 
routine.  The  operation  of  this  routine  is  fairly  straight¬ 
forward:  it  reads  the  iniasn. sysro  files,  opens  and/or  creates 
other  files  which  will  be  accessed  via  FORTRAN  i/o,  sets  up  the 
lists  of  valid  class,  yard,  and  job  type  names  via  a  call  to 
vldlst  (which  in  turn  just  uses  the  liston  utility)  ,  and  reads 
the  schedule  relations  to  construct  assignment  records.  At  the 
close  of  initialization  a  refresh  is  done  (by  a  call  to  asnrfh) 
in  order  to  present  the  first  screen  page. 

The  non-obvious  parts  of  the  logic  have  to  do  with  the 
schedule  read,  conducted  by  asndbi,  and  with  what  happens  when 
there  is  an  existing  assignments  buffer  (bufasn  file) . 

This  latter  condition  will  occur  only  when  the  last  user  to 
execute  the  assigner  in  the  log-on  group  aborted  during  the 
editing  or  DB  update  phases.  The  user  must  be  prompted  for  a 
desire  to  recover  from  the  abort  rather  than  starting  fresh.  If 
recovery  is  desired,  then  no  DB  read  is  required;  the  system  is 
returned  to  its  state  at  the  time  of  the  abort  by  reading  the 
contents  of  the  cmnasn  file  into  memory  and  using  the  contents  of 
the  bufasn  file. 

There  is  a  catch,  however,  embodied  in  the  call  to  asnval. 
Since  the  /asnvld/  common  block  is  not  saved  on  disk  as  is 
/asgn/,  the  valid  name  lists  must  be  re- initialized  via  a  call  to 
vldlst  after  an  abort.  However,  there  is  no  guarantee  that  the 
user  has  not  changed  the  settings  in  the  valid  lists  since  the 
abort,  it  is  therefore  possible  that  bufasn  may  contain  assign¬ 
ments  records  with  invalid  names.  These  are  flushed  by  asnval  so 
everything  is  consistent. 

The  read  of  data  base  schedules,  conducted  by  asndbi, 
centers  around  use  of  asntpx  and  its  subsidiaries  to  retrieve 
schedules  from  the  relations.  In  order  to  make  initialization 
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efficient,  it  was  desirable  to  have  the  schedule  tuples  be  read 
in  order  of  yard  and  class- job,  so  that  assignments  records  could 
be  constructed  one  at  a  time  with  no  necessity  to  go  back  and 
work  on  them  again.  At  first  blush  this  seems  no  problem,  since 
one  can  just  read  from  the  relations  on  an  index  consisting  of 
SCENARIO,  YARD,  CLASS,  (NC  REJJCBT.  However,  up  to  six  relations 
are  involved,  each  open  on  a  separate  cursor,  and  a  typical 
assignments  record  might  have  schedules  resident  in  several 
relations. 


It  is  thus  necessary  to  construct  a  single  virtual  rela¬ 
tion.  Unlike  the  horizontal  construction  effected  by  a  SELECT, 
this  needs  to  be  a  vertical  construction  in  which,  apparently, 
the  contents  of  all  six  relations  are  copied  into  a  single 
temporary  file  which  is  then  indexed  by  the  given  fields  and  read 
sequentially. 


Hie  tremendous  inefficiency  involved  in  creation  of  a 
temporary  file  is  avoided  by  the  following  algorithm: 

1)  Open  the  relations  and  retrieve  the  first  tuple  from 
each  for  the  given  scenario  on  the  appropriate  index 
into  a  holding  buffer  (thus  a  buffer  with  a  six-tuple 
capacity).  This  is  done  by  asndbi. 

2)  Have  the  main  read  routine  (asndbi)  call  a  utility 
(asntpx)  which  does  an  in-memory  sort  of  the  six  tuples 
in  the  buffer  according  to  the  given  keys,  returning  the 
one  with  the  lowest  key  value. 

3)  This  utility  in  turn  calls  a  service  routine  (nxtcls)  to 
get  the  next  tuple  from  the  relation  whose  tuple  was 
just  selected,  placing  it  in  the  'vacated'  location  of 
the  holding  buffer.  Nxtcls  also  ensures  that  the  tuple 
is  still  for  the  given  scenario,  is  for  a  valid  class, 
yard,  job  type,  etc.,  and  that  it  is  not  an 
earlier-da tadate- representation  of  the  tuple  just  used. 
Nxtcls  places  a  high  ascii-collating  sequence  character 
in  the  most-signif icant  key  location  of  the  buffer  when 
it  encounters  end-of-file  or  end- of- scenario  in  a  given 
relation,  thus  ensuring  that  the  given  buffer  location 
will  not  emerge  at  the  top  of  the  in-memory  sort. 


12-50 


This  algorithm  is  extremely  efficient  and  produces  the 
desired  read-ordered  behavior.  It  employs  record  reads  on  the 
relations  in  preference  to  record  points,  doing  points  only  when 
it  finds  it  has  read  into  a  new  yard  (it  does  one  point  for  each 
vail  id  yard  name)  . 

When  the  algorithm  detects  that  a  given  assignment  record 
is  complete  (by  asntpx  returning  a  schedule  for  a  different 
class- job),  the  given  record  is  processed  into  the  /asgn/-buf asn 
data  structure  just  as  though  the  user  had  entered  it 
interactively . 

At  the  close  of  DB  reading  the  assignments  records  are 
reordered  according  to  ASNORDER  field  value  (stored  in  bufasn 
record)  if  the  user  has  specified  the  INPUT  ORDER  parameter 
option  for  class-job  ordering  (this  is  done  by  asnreo)  . 

12 .5  .2  Editing  Phase  Logic 

Figure  12-15  presents  the  calling  tree  diagram  for  the 
editing  phase.  In  spite  of  the  very  large  number  of  routines 
mentioned  on  the  diagram,  the  logic  of  the  editing  phase  is 
fairly  straightforward. 

The  logic  is  organized  around  response  to  specific  user 
commands,  with  command  prompting  and  response  overseen  by  the 
asgn  program  unit.  With  the  exception  of  the  asncmd  command 
retrieval  utility,  every  other  routine  called  by  asgn  is  an 
executive  for  the  processing  of  a  particular  command. 

Note  that  asnec,  called  almost  everywhere,  is  an 
error- reporting  utility. 


The  paging  and  display-generation  algorithm  can  be  somewhat 
obscure  because  it  is  highly  data-driven  and  is  distributed  among 
several  routines.  When  the  user  requests  a  page  up/down  or 
right/left,  the  only  processing  involved  is  recalculation  of  the 
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Figure  12-15.  Assigner  Editing  Phase  Calling  Tree  Diagram 
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Figure  12  15.  Assigner  Editing  Phase  Calling  Tree  Diagram  (Continued) 


index  numbers  of  the  topmost  yard/class- job  and  the  leftmost 
column  to  show  at  the  next  refresh.  These  computations  are  com¬ 
plicated  by  a  desire  not  to  have  yard  names  "hanging"  at  the 
bottom  of  the  display  with  their  cl  ass- jobs  all  appearing  on  the 
next  page. 

The  refresh  logic  (asnrfh)  takes  these  index  settings  as 
input.  It  prints  the  first  few  lines  of  the  display,  the  header, 
and  then  retrieves  bufasn  records  as  necessary  to  print  the 
assignments  records.  It  must  pay  attention  to  proper  placement 
of  the  grid  lines  which  make  it  easier  to  read  the  columns,  and 
to  placement  of  row  and  column  totals. 

Note  that  most  system  calls  for  a  refresh  are  done  through 
the  asnref  routine,  which  consults  the  setting  of  the  AUTO 
REFRESH  parameter  and  just  returns  if  the  user  does  not  want  an 
automatic  refresh  after  processing  of  each  command. 

Processing  of  the  assignment-modification  commands  is  more 
concentrated  and  linear,  typically  involving  error  checking  to 
ensure  the  user  has  asked  for  something  sensible,  a  prompt  for 
the  new  assignment  or  modification,  more  error  checking  on  the 
response,  and  posting  of  the  result  to  bufasn. 

12.5.3  flata-Baae.- Update  Phase  Logic 

Figure  12-16  is  a  calling  tree  diagram  for  the  DB  update 
phase.  Note  also  that  Figures  12-7  and  12-8  and  Section  12.1.3 
summarized  the  structure  of  the  phase.  This  section  will  concen¬ 
trate  on  subtle  parts  of  the  algorithm. 

The  basic  idea  of  the  update  is  to  make  the  bufasn  assign¬ 
ments  record  structure  reflect  only  the  assignments  to  be  updated 
in  ncjodat.  proj  j ,  generate  the  corresponding  schedule  records  and 
place  them  in  the  relation,  give  the  schedules  as  realistic  a  set 
of  hull  numbers  as  possible,  and  clean  up  by  getting  rid  of 
bufasn  and  cmnasn. 
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12.5.3.1 


This  brute- force  step  removes  any  assignments  in  bufasn 
which  were  placed  there  during  initialization  as  a  result  of 
reads  of  schedule  records  from  ncjodat.  hist  j  and  ncjodat.  curr  j  . 
Assignments  originating  in  the  rejobt  relations  are  no  problem 
because  all  repair-type  jobs  are  ignored  during  the  update  anyway 
(they  must  be  ignored  because  there  is  no  way  for  the  user  to 
specify  in  limited  screen  space  exactly  which  ship  (class-hull- 
comnum)  a  given  repair  job  is  to  be  done  onr  and  this  is  a 
crucial  piece  of  information  about  a  repair  job). 

The  removal  is  done  by  re-reading  the  historical  and 
current  relations,  using  a  selection  rather  than  the  asntpx-based 
logic  of  the  initialization  phase.  For  each  schedule  returned 
the  corresponding  bufasn  assignments  record  is  found  and  the 
proper  column  decremented. 

The  schedule  creation  algorithm  must  perform  four  tasks: 
it  must  generate  detailed  information  from  the  summary  data 
provided  by  the  assignments  records,  it  must  (optionally)  spread 
jobs  over  time  intelligently,  it  must  be  sure  not  to  touch  any 
hard-wired  schedule  tuples  in  ncjodat. proj  j ,  and  it  must  ensure 
that  the  schedules  it  generates  are  placed  in  ncjodat  efficiently 
and  in  such  a  way  that  the  relation's  contents  accurately  repre¬ 
sent  the  user's  expressed  desires. 

Generation  of  the  detailed  schedules  is  done  by  creating  a 
set  of  schedule  records  of  number  equal  to  the  grand  total 
showing  at  the  bottom  right  of  the  assignments  display  screen 
MINUS  all  historical/current  jobs  and  all  repair-type  jobs.  Each 
record  is  associated  with  a  given  yard  name,  class  name,  job  type 
name,  job  series  type  name,  and  contains  a  display  date  which  is 
the  first  day  of  the  period  represented  by  the  display  page 
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column  the  assignment  appeared  in.  This  is  the  total  amount  of 
information  supplied  by  the  user. 

The  rest  of  the  information  comes  from  the  job  description 
relation  ncj  dat.  descj ,  which  is  queried  for  matches  on  the  scen¬ 
ario,  yard,  class,  job  type,  and  job  series  type  fields. 

The  full  schedule  records  are  generated  by  a  two- pass  query 
of  ncjdat  for  each  yard  and  complexity  group.  The  first  query  is 
used  only  to  compute  the  adjustment  date  for  each  schedule  (i.e. 
the  milestone  named  in  the  ADJUST  BASIS  parameter  by  the  user) 
based  on  the  display  date.  Records  in  this  limited-inf ormation 
form  (in  the  /asrbuf/  linked  list)  are  then  processed  through  the 
date  spreading  algorithm. 

The  date  spreader  takes  all  the  schedule  records  in  a  given 
complexity  group  (may  be  limited  to  a  given  class-job)  ,  finds  the 
first  date  and  the  last  date  of  the  interval  they  span,  computes 
an  average  interval  between  ships,  and  recomputes  their  adjust¬ 
ment  dates  such  they  are  the  average  interval  apart.  The  algor¬ 
ithm  is  constrained  to  produce  adjustment  dates  that  fall  within 
a  single  display- period  duration  later  than  the  original  adjust¬ 
ment  date,  thus  ensuring  that  when  a  new  display  date  is  computed 
from  the  new  adjustment  date  the  given  assignment  would  still 
appear  in  the  same  display  page  column. 

The  output  of  the  date  spreader  is  then  passed  through  the 
filter  of  the  hard-wire  tuple  compensator  ashard.  This  routine 
reads  ncjodat.proj j  for  tuples  in  the  current  scenario  with 
AUTOMOD  field  values  of  "NO",  finds  which  new  schedule  record 
most  closely  corresponds  to  each  such  tuple,  and  removes  the 
schedule  record  from  the  /asrbuf/  linked  list.  Hard-wired  tuples 
can  thus  be  ignored  during  the  later  relation  update  pass,  since 
they  are  already  compensated  for. 
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At  this  point  /asrbuf/  holds  a  number  of  schedule  records 
equal  to  the  adds/updates  which  will  be  done  on  ncjodat.proj  j  for 
the  given  yard  and  ship  complexity  group.  Full-scale  schedule 
tuples  are  generated  by  a  second  query  of  ncjdat.descj  and  by 
combining  its  information  with  that  in  /asrbuf/,  with  output  to 
tupf il. 

Asndbr  then  supervises  the  update  of  ncjodat.proj  j ,  using 
tupfil' s  contents.  It  reads  tupfil  and  asndbr  concurrently,  per¬ 
forming  either  a  skip,  delete,  or  update  for  each  ncjodat  tuple 
and  an  add  or  update  for  each  tupfil  record.  Hard-wired  tuples 
and  those  not  in  a  class,  yard,  job  type,  or  period  of  interest 
are  skipped.  Those  which  match  the  keys  of  the  current  tupfil 
record  are  updated  with  that  record.  Riose  with  smaller  keys  are 
deleted.  When  the  ncjodat  tuple  keys  are  larger,  tupfil  records 
are  added. 

12.5.3.3  Hull  Number  Assignment 

Figure  12-17  displays  the  text  of  the  newhul.  rprocs  RELATE 
EXECUTE  procedure  file.  This  file  is  processed  by  the  asnhul 
FORTRAN  routine  and  written  to  a  temporary  with  the  proper  scen¬ 
ario  key  field  values  replacing  each  instance  of  "IMAGINATION"  in 
the  original.  It  is  then  executed. 

Its  goal  is  to  assign  the  most  realistic  hull  number  pos¬ 
sible  to  each  schedule  in  the  current  scenario  (not  only  those  on 
the  valid  lists  for  this  run)  given  the  state  of  the  data  base. 

It  first  reads  the  ncjodat. hi stj  and  ncjodat. currj  relations  to 
determine  the  maximum  hull  number  in  each  class.  It  then  assigns 
this  hull  number  to  the  first  ship  of  each  corresponding  class  in 
ncjodat.proj  j ,  making  the  assignment  in  the  PR0GVAR1  working  var¬ 
iable,  however.  There  are  usually  some  projected  classes  which 
do  not  appear  in  the  current  and  historical  relations;  the  proce¬ 
dure  next  attempts  to  extract  a  first-ship  hull  number  from  the 
class  name  itself,  e.g.  "51"  from  DDG-51 .  Where  even  this  fails, 

the  earliest-del ivery  ship  of  the  class  is  assigned  "1”  as  a  hull 
number . 
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Figure  12-17.  Text  of  NEWHUL.RPROCS  Execute  File 


1  NOTE  23 
NOTE  28 

NOTE  47 ,49,51 ,53 ,61 ,68,71 ,76  ,82,103  ,105 

NOTE  first  lines  of  file  must  contain  posn  of  lines 

NOTE  where  alias  will  substitute  in  name  of  current  seen 

NOTE 

NOTE  THIS  RELATE  PROCEDURE  FILE  IS  TO  BE  CALLED  BY 
NOTE  ALIAS  MODULE  ASSIGNER. 

NOTE 

NOTE  ITS  PURPOSE  IS  THE  UPDATING  OF  SHIP  HULL  NUMBERS  TO 
NOTE  FORM  A  CONSISTENT,  UNIQUE  SERIES  AFTER  ASSIGNMENTS  HAVE 
NOTE  BEEN  CHANGED 

NOTE 

OPEN  FILE  NCJODAT.PROJJ;MODE-SHAR£D;PATH-PROJX 
OPEN  FILE  NCJODAT.CURRJ;MODE- SHARED ;PATH-CURRX 
OPEN  FILE  NCJODAT.HISTJ ;MODE-SHARED;PATH-HISTX 
NOTE 

NOTE  GET  MAX  HULL  NUMBERS  FOR  EACH  CLASS 

NOTE 

SET  PATH  HISTX 

SELECT  SCENARIO, CLASS, HULL- $MAX( HULL  BY  SCENARIO, CLASS)  & 

UNIQUE  BY  SCENARIO, CLASS  WHERE  SCENARIO*  & 

"IMAGINATION" 

COPY  TO  HLTMP ; ERASE ; RETENTION -TEMPORARY 
SET  PATH  CURRX 

SELECT  SCENARIO, CLASS, HULL- $MAX( HULL  BY  SCENARIO, CLASS)  & 

UNIQUE  BY  SCENARIO, CLASS  WHERE  SCENARIO-  & 

"IMAGINATION" 

COPY  TO  HLTMP; RETENTION-TEMPORARY 
NOTE 

NOTE  INDEX  MAX  HULL  NUMBERS;  UNARY  INDEX  REQUIRED  FOR 
NOTE  LET  COMMANDS  GIVEN  THROUGH  A  SELECTION 
NOTE 

OPEN  FILE  HLTMP; RETENTION-TEMPORARY 

SELECT  CLASS, HULL  UNIQUE  BY  HULL  WHERE  HULL-$MAX( HULL  BY  CLASS) 

COPY  TO  HLTMP2 ; ERASE ; RETENTION-TEMPORARY 
OPEN  FILE  HLTMP2; RETENTION- TEMPORARY 
LET  HULL-HULL* 1 
CREATE  INDEX  BY  CLASS; UNARY 
NOTE 

NOTE  GET  THE  PROJ.  SCHEDULE  RELATION  SET  TO  MOVE  THE  MAX 
NOTE  HIST/CURR 

NOTE  HULL  NUMBERS  BY  CLASS  IN 

NOTE 

SET  PATH  PROJX 

SET  INDEX  SCENARIO, CLASS, DELI VERY 
LET  PROGVAR1-1  FOR  SCENARIO-6 
"IMAGINATION" 

LET  PROGVAR1 -$LAST ( PROGVARl , CLASS )  FOR  SCENARIO-6 
"IMAGINATION" 

LET  PROGVAR2-0  FOR  SCENARIO-6 
"IMAGINATION" 
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Figure  12-17.  Text  of  NEWHUL . RPROCS  Execute  File 


52  LET  PR0GVAR2-1  FOR  PROGVARl-O  AND  SCENARIO-* 

53  "IMAGINATION" 

54  NOTE 

55  NOTE  MOVE  MAX  HIST/ CURE  HULL  NUMBERS  INTO  FIRST  TUPLE  EACH  CLASS 

56  NOTE  WHERE  NO  MAX/ CUR R  HULL  NUMBER,  SET  TO  NUMBER  IN  CLASS  NAME 

57  NOTE  IF  THERE  IS  ONE 

58  NOTE 

59  SELECT  PRO JX.@,MHULL-HLTMP2 .HULL  WHERE  PROJX.CLASS-HLTMP2 .CLASS  AND  & 

60  PR0JX.PR0GVAR2-1  AND  PROJX. SCENARIO-  & 

61  "IMAGINATION" 

62  LET  PROGVAR1 -MHULL 

63  SELECT 

64  NOTE  PARSE  FOR  THE  FIRST  NUMERIC  SUBSTRING  OF  THE  CLASS  FIELD 

65  LET  PR0GVAR1 -$SUBSTR( CLASS, $MATCH( CLASS, "[1-9]"),  & 

66  SNATCH ( $SUBSTR( CLASS , $MATCH ( CLASS, "[ 1-9] ")) ,  "[/0-9] ")-l) & 

67  FOR  PROGVARl-O  AND  SCENARIO-  & 

68  "IMAGINATION" 

69  NOTE  CATCH  ANY  LEFT  AND  SET  THEM  TO  1 

70  LET  PR0GVAR1-1  FOR  PROGVARl-O  AND  SCENARIO-  & 

71  "IMAGINATION" 

72  NOTE 

73  NOTE  NOW  SET  HULLS  FOR  EACH  CLASS  IN  INCREASING  ORDER 

74  NOTE 

75  LET  PR0GVAR1-$RT0TAL(PR0GVAR1, SCENARIO, CLASS)  FOR  SCENARIO  -  & 

76  "IMAGINATION" 

77  NOTE 

78  NOTE  NOW  MAKE  SURE  THAT  NO  SHIPS  FLAGGED  BY  THE  SCHED  EDITOR 

79  NOTE  AS  UNCHANGEABLE  WILL  HAVE  THE  SAME  HULL  AS  AN  UNFLAGGED  SHIP 

80  NOTE 

81  IF  PROJX. AUTOMOD-"NO"  AND  PROJX. SCENARIO-  & 

82  "IMAGINATION" 

83  OPEN  FILE  NCJODAT.PROJJ;MODE-SHARED;PATH-PROJ2 

84  SELECT  LINE-PR0J2 . $LINE, AJUNK-PR0J2 .PR0GVAR1 , PROJX. PR0GVAR1 ,  & 

85  PRO JX. HULL, PRO JX.AUTOMOD  & 

86  WHERE  PR0J2.PR0GVAR1 -PROJX. HULL  AND  PR0J2 .SCENARIO-PROJX. SCENARIO* 

87  AND  PR0J2 .CLASS-PROJX. CLASS  AND  PROJX.AUTOMOD-"NO"  & 

88  AND  PR0J2 .COMNUM-PROJX.COMNUM 

89  COPY  TO  HLTMP3 ; RET-TEMP 

90  OPEN  FILE  HLTMP3 ; RETENTION-TEMP 

91  CR  IN  BY  LINE;U 

92  SELECT  PROJX. PROGVARl .HLTMP3 .LINE, FR0M-HLTMP3 .PROGVARl  & 

93  WHERE  PROJX. $LINE-HLTMP3. LINE 

94  LET  PROGVARl -FROM 

95  CLOSE  PATH  PR0J2 

96  PURGE  FILE  HLTMP3 

97  END  IF 

98  NOTE 

99  NOTE  NOW  TRANSFER  THE  HULL  NUMBERS  TO  THE  HULL  FIELD 

100  NOTE 

101  SET  PATH  PROJX 

102  LET  HULL— 1 000+ $RTOTAL ( - 1 )  FOR  AUTOMOD-"YES"  AND  SCENARIO-  & 

103  "IMAGINATION" 
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Figure  12-17.  Text  of  NEWHUL.RPROCS  Execute  File 


104  LET  HULL-PR0GVAR1  FOR  AUTOMOD«"YES"  AND  SCENARIO-  & 

105  "IMAGINATION" 

106  NOTE 

107  NOTE  CLEAN  UP 

108  NOTE 

109  CLOSE  PATH  PROJX 

110  CLOSE  PATH  CURRX 

111  CLOSE  PATH  HISTX 

112  PURGE  FILE  HLTMP 

113  PURGE  FILE  HLTMP2 
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The  remaining  ships  of  each  class  are  then  assigned  hull 
numbers  in  increasing  order  starting  with  the  first  hull  for  that 
class,  still  in  the  PR0GVAR1  variable.  Next  the  hull  numbers  are 
revised,  so  that  there  are  no  unary-key  conflicts  with  hard-wired 
tuples,  by  swapping  the  PR0GVAR1  hull  numbers  of  hard-wired  tup¬ 
les  with  those  of  tuples  whose  PR0GVAR1  value  matches  the  actual 
HULL  number  in  the  hard-wired  tuple.  Finally  the  HULL  field  can 
be  assigned  the  value  of  the  PR0GVAR1  field  for  all  non-hard- 
wired  tuples. 

12.6  FILES  USED  BY  THE  ASSIGNER 

The  assigner  uses  a  large  number  of  files  and  relations. 

'Hie  iniasn. sysro  and  hlpasn.sysro  permanent  files  are  consulted. 
IWo  permanent  files  named  bufasn  and  cmnasn  are  created  in  the 
executing  user's  log— on  group,  and  purged  only  on  successful 
assigner  process  completion.  Temporary  files  tupfil  and  extmpxyz 
are  created  as  working  areas  during  DB  update  execution. 

The  ncjodat.histj,  ncjodat. curr j,  ncjodat.proj j, 
rejodat.histj  ,  rejodat.  curr  j ,  rejodat.proj  j  ,  ncj  dat.  descj  , 
valcls.mnurel,  valyds.mnurel,  vlj  typ.mnurel,  jobtyp.legals,  and 
j  styp.  legal  s  relations  are  all  consulted;  ncjodat.proj  j  is 
altered. 

Assigner  source  code  is  in  the  .src  group,  in  files  asgna, 
asgnan,  asgnan,  asgnanc,  asgnand,  asgnane,  asgnani,  asgnanm, 
asgnanr,  asgnant,  asgnao,  asgnat,  asgnc,  asgnr,  asgny,  and 
recomp.  Object  code  is  in  corresponding  files  in  the  .obj  group. 
Linkable  object  code  is  in  asgn.obj.  Program  files  are  in 
asgn.prog  and  tasgn.prog.  The  GLUE,  LINK,  and  MAKE  procedure 
files  are  in  asgn. merge,  asgn.link,  and  tasgn.link  respectively. 

12.7  INTERFACES 

The  assigner  depends  on  the  integrity  of  the  data  base  in 
several  important  respects.  First,  it  assumes  that  the  yard, 
class,  and  job  type  names  appearing  in  all  schedule  records  are 
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represented  on  the  candidate  lists  in  valyds.mnurel, 
valcls.mnurel,  and  valj  tp.mnurel .  This  will  be  true  as  long  as 
only  the  DBU  is  used  for  updating  schedule  relations  and  for 
updating  the  shdesc.miscj  relation.  Where  it  is  not  true,  it 
will  be  as  if  the  schedules  without  valid  names  did  not  exist  as 
far  as  the  assigner  is  concerned.  These  schedules  will  not  be 
tampered  with,  but  are  unretrievable. 

The  assigner  assumes  that  appropriate  job  description 
records  will  appear  in  ncj dat. desc j,  but  is  forgiving  when  this 
is  not  the  case,  allowing  the  user  to  go  make  needed  additions  in 
the  DBU  and  then  come  back  to  finish  his  assigner  run. 

The  assigner  assumes  that  the  DBU  maintains  the  SUBRELUMAP 
field  in  ncjodat  records,  indicating  the  presence  of  data  in 
subsidiary  relations  which  will  require  deletion  in  the  event  of 
trimary  schedule  deletion.  Since  there  are  no  subsidiary  rela¬ 
tions  supported  at  this  time,  this  feature  is  inoperative.  Care 
must  be  made  in  constructing  future  DBU  screens,  however.  See 
the  asubdl  routine  for  more  information. 

The  assigner  makes  the  usual  use  of  the  DBIF,  scenario  sys¬ 
tem,  and  Core  data  swap  facilities  through  the  usual  utilities. 

12.8  SUBROUTINE  ABSTRACTS 
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ASSI6NER  ABSTRACTS 


C  ASSN**** . * . ****#♦**♦*•**«♦****♦«****♦*#****♦ 

JCONTRQL  segment"asgnd,check*3 
PROGRAM  asgn 

C*  ***  ABSTRACT  *** 

CfPURPOSE  executive  for  the  Manual  Assignor  Module 
CtAUOIT  HISTORY 

C  Densmore  15-Mar-83  AUTHOR 

C  Densnore  19-Jul-83  Made  Son  Process  of  nodule 

CfTYPE  nanual  assigner  routine 

CfcCOMMQN  BLOCKS 

Cm  scrchr  screen  characters 

CtCALLER  Menu  systen  through  process  create/act 1 vat  ion  (ASSIGN) 
CJtMETHOD 
C  executive 
C#L0CAL  VARIABLES 


c 

lend 

command  index 

c 

isub 

subcommand  index 

c 

val 

integer  array  giving  input  numeric  values 

c 

nval 

length  of  val  array 

C## 


ASSIGNER  ABSTRACTS 


C  ASCDAY  ##*****#*«*#•****#********#****•»*■»•»*♦*********♦« 

SCONTROL  segment*ASGNO 
CSTRACE  ascday; 

INTEGER*4  FUNCTION  ascday< srcday , srcod , tgtcod , p f indx  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer*4  srcday 
integer  srcod, tgtcod, pf indx 

C*  »**  ABSTRACT  **♦ 

C4PURP0SE  ASsigner  Calculate  DAY.  Use  one  date  and 
C  schedule  planning  factors  to  calculate  another  date. 

C  Expects  and  outputs  a  clarified  ddate. 

C4AUDIT  HISTORY 

C  MSCarey  27-jun-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cm  srcday  date  to  use  as  basis 

Cm  srcod  code  indicating  whicn  milestone  srcday  is 

Cm  tgtcod  code  indicating  which  milestone  is  desired 

Cin  pfindx  index  of  job  description  to  use  in  /asjd/ 

CtCOMMON  BLOCKS 

Cin  asoprm  outbound  parameters 

Cm  asjd  job  descriptions 

C4CALLER  various  assigner  outbound 
CJMETHOD 

C  Sum  up  the  intervals  between  src  milestone  and  tgt  milestone 

C  and  add  that  number  of  days  to  get  the  output. 

C#t 
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C  ASCDSP  *********************************************** 
^CONTROL  segment-ASGNO 
CiTRACE  ascdsp; 

INTEGER*4  FUNCTION  ascdsp< date, start , pfindx  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer*4  date, start 
integer  pfindx 

C»  ***  ABSTRACT  *** 

CSPURPOSE  ASsigner  Change  DiSPlay  date.  Alters  an  award  date 
C  so  that  its  MM/OD  are  according  to  planning  factors. 

C4AU0IT  HISTORY 

C  MSCarey  27-jun-83  AUTHOR 

C4F0RMAL  PARAMETERS 

Cin  date  current  date 

Cm  start  start  date  for  ship;  new  award  date  must  be  less 

Cin  pfindx  location  of  proper  planning  factors  in  /adjd/ 

CtCOMMON  BLOCKS 

Cin  asoprm  outbound  parameters 

Cin  asjd  job  description  tuple  images 

C5CALLER  asntrb 

CSMETHOD 

C  Move  the  desired  mm  and  dd  into  the  output  variable  from  the 

C  planning  factors.  The  year  will  be  the  later  of  the  year 

C  of  date  or  the  year  after  date;  ascdsp  must  be  within 

C  12  months  of  date. 

C«« 
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ASSIGNER  ABSTRACTS 


C  ASCMP6  ******** . * . ********* . 

{CONTROL  segment*ASGNO 
CSTRACE  asycls; 

SUBROUTINE  ascmpgl ncyds , yard, nc las , lstchr ,clist , cgcode > 
C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  iyard, nclas , 1st len, cgcode < nclas  ) 
characters lstchr  )  clist(nclas)  ,yard*(mcyds ) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Assigner  CoMPlexity  6roup  identifier.  Takes 
C  a  list  of  classes  and  a  yard  reference  and  identifies 
C  what  complexity  group  each  class  belongs  to. 


CtAUDIT  HISTORY 

C 

MSCarey 

lS-jun-83  AUTHOR 

CtFORMAL 

PARAMETERS 

Cin 

iyard 

location  of  yard  name  in  /asgn/ 

Cin 

nclas 

number  of  classes  on  list 

Cin 

lstchr 

number  of  chars  in  each  class  name 

Cin 

clist 

list  of  class  names 

Cout 

cgcode 

list  of  complexity-group  codes  for  each  class 

C 

codes  are  abitrary,but  same  for  every  member 

C 

of  the  same  group 

CtCOMMON 

BLOCKS 

Cin 

asjd 

job  descriptions  for  each  class 

CtCALLER 

asncnv 

CtMETHOD 

C  Make  up  a  key  for  each  yard-class-jobtype  combination,  and  call 
C  asgdsc  to  get  a  job  description  tuple  into  the  /asjd/  buffer 

C  for  each.  Assign  complexity-group  codes  based  on  the  tuples. 

C  If  spreading  mode  is  none  or  class,  assign  each  class  to  a 
C  separate  complexity  group  and  do  not  retrieve  job  desc  tuples. 
CS« 
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C  ASOWRN . ***** . * . 

SCONTROL  segment»AS6N0 

SUBROUTINE  asdurn< yard, class , hul 1 > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  hull 

character  yard*8,class*10 

C*  ♦**  ABSTRACT  *** 

CtPURPOSE  ASsigner  hardwire  tuple  Deletion  UaRNing. 

CtAUOIT  HISTORY 

C  MSCarey  01-jul-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  yard  name  of  yard  for  tuple  about  to  be  deleted 

Cin  class  name  of  class  of  tuple  about  to  be  deleted 

Cin  hull  hull  number  for  tuple  about  to  be  deleted 

CtCOMMON  BLOCKS 

Cin  ioc  io  unit  numbers 

CSCALLER  various  assignor  outbound 
CtMETHOD 

C  Write  a  message 
CM 
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C  AS6NXT . ****** . . . ***** . ***** 

SCQNTROL  segment “AS6NO 
CSTRACE  asycls; 

SUBROUTINE  asgnx t ( nc las , cgcode , cp tr , me  1 chr , numpds , cused , 

1  hldcls,hldnunf nclash.nomore ) 

C»  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  nclas , cgcode< nclas ) , cptr< nclas  > ,nc lash, me lehr , numpds 
integer  hldnum< nclas  ) 
logical  cused< nclas ) , nomore 
character** mclchr )  hldcls* nclas ) 

C*  «**  ABSTRACT  *** 

CiPURPOSE  ASsigner  outbound  Get  Next  complexity  group.  Moves 
C  bufasn  lines  for  a  related  set  of  classes  into  holding  buffers 
CiAUOIT  HISTORY 

C  MSCarey  18-jun-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  nclas  number  of  classes  in  yard 

Cin  cgcode  complexity-group  idcode  of  each  class 

Cin  cptr  pointer  to  class  record  in  bufasn 

Cin  mclchr  max  characters  in  class  name 

Cin  numpds  max  periods!  length  of  bufasn  record  in  effect 

Cio  cused  true  if  class< i  )  has  already  been  processed 

Cout  hldcls  name  of  class< i )  with  job  type  char 

Cout  nclash  number  of  classes  placed  in  hid _  buffers  this  call 

Cout  hldnum  location  on  clist  of  class  i  in  hid _ 

Cout  nomore  true  if  all  classes  in  this  yard  have  been  processed 

CfCOMMON  BLOCKS 

Cio  asgn  bufasn  and  edit  stage  blocks 

CSCALLER  asncnv 

CtMETHOD 

C  Look  through  the  class  list  for  the  first  unprocessed  class. 

C  Retrieve  the  record  for  this  class  and  place  it  in  hid _ 

C  Look  through  the  rest  of  the  list  for  classes  with  the  sane 

C  complexity  group  code  and  store  their  bufasn  records. 

C** 
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C  ASGPF  ***** . ********* . 

SCONTROL  segment-ASGNQ 
CSTRACE  asgpf; 

INTEGER  FUNCTION  asgpf < sercod ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

Integer  sercod 

C*  ***  ABSTRACT  *** 

CSPURPOSE  ASsigner  outbound  Set  Planning  Factor  index. 

C  Returns  an  index  in  /asjd/  of  the  job  description 

C  which  most  closely  matches  the  requested  job  series  type. 

Ct  AUDIT  HISTORY 

C  MSCarey  27-jun-83  AUTHOR 

C1F0RMAL  PARAMETERS 

Cin  sercod  index  indicating  series  type  of  ship  (e.g.  LEAD) 

CtCOMMON  BLOCKS 

Cin  asnvld  job  type  and  series  type  reference 

Cin  asjd  job  description  tuple  images 

CfCALLER  astrb 
CfMETHOD 

C  Convert  the  code  to  a  string  value.  Look  for  an  exact  match 

C  in  /asjd /.  If  none,  warn  and  use  general  purpose  description. 

Cf* 
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C  ASHARD  * . . . * . . . 

SCONTROL  segment »ASSNO 
CSTRACE  asycls; 

SUBROUTINE  ashard<  mxclcr , nclash, hldcls .mxeyrd, yard  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

characters mxclcr  )  hldcls< nclash  ) ,  yards mxeyrd ) 
integer  mxclcr .nclash, mxeyrd 

C»  ***  ABSTRACT  *♦* 

CfPURPOSE  ASsigner  HARDwire  tuple  integration  routine. 

C  ’Deletes’  one  record  from  /rbuf/  for  each  hardwire  tuple. 
C# AUDIT  HISTORY 

C  MSCarey  19-jun-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  mxclcr  number  of  characters  in  class  name 

Cin  nclash  number  of  classes  being  processed  now 

Cin  hldcls  names  of  classes  being  processed  now 

Cin  mxeyrd  max  number  of  characters  in  yard  name 

Cin  yard  name  of  current  yard 

CtCOMMON  BLOCKS 

Cio  asrbuf  1-ship  1-record  buffer 

Cout  astfr  tuple  and  tupfil  record  buffers 

CSCALLER  asncnv 

CSMETHOD 

C  For  each  class-jobt,  point  to  the  first  flagged  tuple  in 
C  nejodat  using  the  cursor  with  the  flags-only  selection. 

C  Return  tuples  for  this  class  until  there  are  no  more. 

C  For  each  tuple,  find  the  record  with  the  closest  rdispd 

C  in  rbuf  which  has  an  exact  match  on  the  job  type  of  the 

C  tuple.  Delete  this  record  by  removing  it  from  the  pointer 

C  chain.  If  no  record  can  be  found  with  a  match  on  job  type 

C  or  with  rfirst  <«  tupadj  <■  rlast,  delete  the  tuple. 

C  Search  for  subsidiary  tuples  and  delete  them  also. 

Ct* 
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C  ASHTRB  . . * . * . 

SCONTROL  segment ■ASGNO 
CSTRACE  asycls; 

SUBROUTINE  asht rb ( yard , y dchr , c lehr , nump ds , hi dc 1 s , 

1  hldnum, nclash, mxcis, clist ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

character^  ydehr )  yard 

characters  clchr  )  hide ls( nc lash )  ,clist ( mxcls  ) 
integer  clchr ,numpds,nc lash 
integer  mxcls, hldnum( nclash ), ydehr 
C*  ***  ABSTRACT  *** 

CtPURPOSE  ASsigner  To  tuple  Record  Buffer.  Converts  hid _ 

C  form  of  assignments  to  1-1 ine-per-ship  representation 
C  useful  to  the  data  spreader  and  tup  Til  producer. 

CtAUDIT  HISTORY 

C  MSCarey  19-jun-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  ydehr  max  chars  in  yard 

Cin  yard  name  of  yard  being  processed 

Cin  clchr  max  chars  in  a  class  name 

Cin  hldcls  name  of  class< i  ) 

Cin  nclash  number  of  classes  in  hid 

Cin  numpds  dimension  of  hid _ .  Same  as  numper 

Cin  hldnum  position  of  hclass  on  clist 

Cin  mxcls  dimension  of  clist 

Cin  clist  alphabetic  list  of  classes  in  yard 

CtCOMMON  BLOCKS 

Cin  asoprm  general  outbound  params  and  variables 

Cout  asrbuf  1-ship  1-record  structure;  output  of  this  routine 

CtCALLER  asncnv 

CfMETHOO 

C  First,  run  through  the  hid _  structure  and  construct  asrbuf 

C  and  associated  pointers.  Assume  that  the  display  date  is  to 
C  be  the  first  day  of  its  period  in  each  case. 

C  Then  process  one  class  at  a  time. 

C  First,  load  planning  factors  for  the  class. 

C  If  the  display  basis  is  award  and  time  unit  years,  then 

C  convert  display  dates  from  the  first  to  the 
C  proper  date. 

C  Then  arrive  at  adjust-basis  dates  for  each  ship. 

C*t 
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C  ASJOI  . . . * . * . 

^CONTROL  segment»ASGNO 
CSTRACE  asjoi; 

LOGICAL  FUNCTION  asjoi < string ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  •** 

character*12  string 

C*  ***  ABSTRACT  *** 

CSPURPOSE  Decides  if  the  job  type  implied  by  the  character 
C  in  position  11  of  string  is  one  of  outbound  interest. 
C#AUDIT  HISTORY 

C  MSCarey  27-jun-83  AUTHOR 

Cf FORMAL  PARAMETERS 

Cin  string  class  name  with  job  type  recog  char  attached 

CtCOMMON  BLOCKS 

Cin  asnvld  recognition  character  conversion 

CtCALLER  asycls 

CtMETHOD 

C  Only  new  construction  job  types  are  of  interest. 

C  Job  types  are  listed  as  new  construction  or  repair 
C  in  a  companion  char  variable  to  jtvld.  Indexing 

C  first  on  jtvld  and  then  on  jttype  gives  the  desired  value 

Ctt 
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C  ASN1ST** . * . * . * . * . 

SCONTROL  segment»asgni  ,check*3 

INTE6ER*4  FUNCTION  asnlst< fyear, f date, idurat ) 

C«  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  fyear , f date, idurat 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Return  equivalent  of  FDDATE< DPFRST, IDURAT )  given  /asgn/  data 
CtAUDIT  HISTORY 

C  Densmore  28-Jul-83  AUTHOR 

CfTYPE  assigner  date  routine 

C4F0RMAL  PARAMETERS 

Cin  fyear  /asgn/  fiyear  -  the  year  of  the  first  period 

Cin  fdate  /asgn/  fidate  -  the  number  in  year  of  first  period 

C  value  depends  on  the  value  of  idurat  ( including  its 

C  being  undefined  when  idurat*l  or  2) 

Cin  idurat  /asgn/idurat  -  l»Fyr,2*Cyr,rt3-qtrf4-month,5*week,G*day 

C4C0MM0N  BLOCKS 

Cin  tddate  date  data  type  block 

CtCALLER  asnmnp,  assigner  outbound 

C*METH00 

C  simple  case  statement.  An  FDDATE  is  performed  on  the  result 
C  as  insurance. 

C4L0CAL  VARIABLES 

C  date  the  result  before  fddate  call 

C  i...  j...  day,  month  numbers 

C*t 
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C  ASNAOO******asnins***** *♦♦♦«******* ******************* 

^CONTROL  segment-asgnd, check-3 

SUBROUTINE  asnadd< isub.val ,nval > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  isub.nval ,val< nval  ) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  implements  manual  assigner  add  assignment  command 
CfAUDIT  HISTORY 

C  Oensmore  15-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

CtFORMAL  PARAMETERS 

Cin  isub  subcommand  index 

Cm  val  user-input  values  array 

Cin  nval  length  of  val 

Cf COMMON  BLOCKS 

Cm  scrchr  screen  characters 

Cin/out  asgn  manual  assigner  blocks 

C3CALLER  assign 
CSMETHOD 

C  Checks  for  user  and  system  errors.  Determines  if  a  yard  is 
C  to  be  added,  and  calls  neuyrd  if  so.  Loops  over  period  pages 
C  and  obtains  input  from  user  defining  new  assignment.  Resets 
C  assignment  record  pointers  so  that  the  new  record  is  inserted 
C  in  proper  order  by  ship-class  name. 

Cf LOCAL  VARIABLES 

C  loc  index  for  the  new  yard 

C  start  first  period  on  this  page 

C  len  number  of  periods  on  this  page 

C  last  last  period  on  this  page 

C  msg  message  buffer 

C  class  class  buffer 

C  before  index  of  item  before  the  one  searched;  0  if  first 

C  item  index  of  item  searched;  0  if  not  present 

C  after  index  of  item  after  the  one  searched;  0  if  last 

C  valbuf  values  buffer 

C  codbuf  codes  buffer 

C  t,ml  .True. ,  .False.  —  easier  to  see 

C  xsec  cross  section  sum 

C  ifree  pointer  to  next  item  in  free  chain  (after  freptr  ) 

C  used  to  set  freptr  at  conclusion  of  add  operation 

C  look  class  index  for  which  to  look;  0  if  Add  command 

C  mval  maximum  val  index  expected  Cl.. 2! 

C  inmode  IF  asnadd  THEN  t  ELSE  (nil  &  Assert  asnms  ) 

C  beyond  name  of  max  val  index  expected  [yard, class! 

Ct* 
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C  . . . . «••**•*•« 

SCONTROL  segment»asgnd,check»3 
SUBROUTINE  asnalo 

C*  ***  ABSTRACT  *** 

CiPURPOSE  allocates  an  assignments  buffer;  places  it  on  free  chain 
CtAUOIT  HISTORY 

C  Oensmore  21-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

CfCOtiNON  BLOCKS 

Cin/out  asgn  assigner  data  block 

CtCALLER  asnadd 

CfMETHOD 

C  Two  variables  store  the  free  buffer  records  status:  nvruse  and 
C  freptr.  nvruse  is  the  record  index  of  the  first  nevei — used  direct 
C  access  buffer  record,  freptr  is  a  pointer  (a  record  index)  to  the 
C  head  of  a  list  of  assignment  buffer  records  which  are  free  for  use 
C  (and  probably  got  there  by  being  used  and  then  freed). 

CSLOCAL  VARIABLES 

C  error  true  if  an  I/O  error  occurred 

C*# 
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C  ASNALT . * . * . ***** . ***** 

SCONTROL  segment*asgnd,check*3 

SUBROUTINE  asnalt< len.valbuf .codbuf .values, codes  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  len , valbuf  < len  ) , codbuf < len  ) , values ( len ) , codes < len ) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Alters  buffer  values/codes  according  to  buffer  codes 
C  so  that  Modification  is  affected. 

CtAUOIT  HISTORY 

C  Qensmore  17-Mai — 83  AUTHOR 

CfTYPE  manual  assigner  routine 

C#F0RMAL  PARAMETERS 

Cm  len  number  of  periods  in  question 

Cin/out  valbuf  new  values  input .. .undefined  if  corresponding 

C  code  is  cundef 

Cin/out  codbuf  new  codes  input ... cundef  means  change  < valbuf .codbuf  ) 
C  to  (0,0). ..0  means  change  pair  to  ( values .codes  ), 

C  that  is,  the  old  values. 

Cin  values  the  old  values 

Cin  codes  the  old  codes 

CSCALLER  asnmod 

Ctt 
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C  ASNAMM******* . * . . ****** . *♦**♦**.*,* 

SCONTRQL  segment-asgnd , check-3 

SUBROUTINE  asnamm< val , nvai  )  % 

c*  »**  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  nvai,  val(nval) 

C#  ***  ABSTRACT  *** 

CSPURPOSE  Allows  modification  of  a  yard  or  class  name 

CSAUDIT  HISTORY  ___ 

C  Oensmore  ll-Jul-83  AUTHOR  < 

CSTYPE  assigner  routine 

CtFORMAL  PARAMETERS 


Cin 

val 

input  numeric  parameters 

Cin 

nvai 

number  of  parameters 

CtCOMMON 

BLOCKS 

-  •  - 

Cin/out 
C# CALLER 

asgn 

asnmod 

assigner  data  block 

• 

CJMETHOD 

C  Determines  whether  yard  or  class  name  is  being  modified, 
C  checks  that  line  is  being  displayed,  solicits  new  name, 

C  checks  it,  and  makes  the  change. 

CJtLOCAL  UARIABLES 


buffer 

character  variable  storing  new  name 

old 

old  value 

„  * 

me  Is 

true  if  class  name  being  modified  (else  yard  name) 

/  »  * 

msg 

message  buffer 

ids 

class  number 

...  • 

iyrd 

yard  number 

leno/b 

character  lengths 

1  tern 

pointer  to  appropriate  class 

CM 


i 


I 
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C  ASNCHD 


^CONTROL  segment-asgno, check-3 

SUBROUTINE  asnchd<bdate,nbd, tdate, prioty, ntd, ndate, nnd, mnd  ) 
C*  **«  FORMAL  PARAMETER  DECLARATIONS  **• 

INTEGER  nbd,ntd,nnd,mnd,prioty<  ntd ) 

C  - ODATE  bdate< nbd ) , tdate< ntd )  ,ndate( mnd >: 

INTEGER*4  bdate<  nbd ) , tdate< ntd  > , ndate< nnd ) 

C*  ***  ABSTRACT  *** 


C4PURP0SE  Accepts  Buf fer_OATEs , 
C  for  converting  tdates 
C4AUDIT  HISTORY 


Tuples_DATEs ,  outputs 
into  new  dates  in  New. 


instructions 

DATEs. 


C 

CfTYPE 

CtFORMAL 

Cin 

C 

C 

Cin 

Cin 

C 

C 

C 

Cin 

C 

Cin 

Cout 

C 

C 

C 

C 

C 

C 

C 

c 

Cout 

Cin 

CtCOMMON 

Cin 

Cin 


Densnore  27-Apr-83 

Manual  Assigner  routine 
PARAMETERS 


AUTHOR 


bdate 


nbd 

tdate 


pr ioty 

ntd 

ndate 


nnd 

nnd 

BLOCKS 

tddate 

lprnts 


Sorted  Dates  derived  fron  the  buffer  assignment  for  e 
particular  yard/class/period;  presumably  these 
dates  are  evenly  spaced  over  the  period, 
number  of  bdates 

Sorted  Oates  obtained  from  database  corresponding  to 
the  old  assignments  in  this  yard/class/per iod. 

These  are  presumably  obtained  directly  from  the 
tuples  in  the  database. 

A  priority  for  the  old  dates.  Currently,  there  are 
only  two  values:  0-"sof twire" ,  l-*hardwire" 
length  of  the  arrays  tdate  and  prioty 
The  result  array.  If  ndate( i  )  is  nonzero,  then 
the  tuple  corresponding  to  i  should  be  updated 
to  contain  the  date  ndate(i).  If  ndate< i )  is 
zero,  that  tuple  should  be  renoved  from  the 
database.  If  nnd>ntd,  then  the  tuples  for 
which  i>ntd  should  be  added  to  the  database.  If 
ntd>nnd,  then  there  are  exactly  (ntd-nnd)  ndate 
values  which  are  zero.  Note  result  not  sorted. 

***  It  is  assumed  that  all  valid  dates  are  >  0. 

Length  of  ndate 

Maximum  allowable  length  for  ndate 

OOATE  data  type  block 
diagnostics 


CtMETHOD 

C  The  method  is  a  three  step  process.  First,  recall  that  the 
C  total  number  of  dates  we  wish  to  be  left  with  is  nbd.  If  ntd>nbd, 
C  then  the  first  step  is  to  nark  for  deletion  the  (ntd-nbd)  latest 
C  softwire  tuples.  If  more  must  be  deleted  then  exist,  then  the 
C  algorithm  begins  deleting  the  latest  hardwire  tuples. 

C  The  second  step  is  to  loop  through  and  mark  all  the  hardwire 
C  tuples  that  remain  to  be  kept.  Let  the  number  of  such  tuples  be 
C  given  by  nhard.  Then  at  this  point  <nbd-nhard)  dates  remain  to 
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C  be  specified. 

C  Now,  for  each  hardwire  tuple  being  kept,  exactly  one 
C  softwire  date  in  bdate  must  be  ignored.  The  one  ignored  at  each 
C  step  is  the  one  "closest"  to  the  hardwire  tuple,  timewise. 

C  (Oatatype  DDATE  function  OCLOSR  is  used.  )  The  dates  remaining 
C  after  the  ones  to  be  ignored  are  marked  are  placed  in  ndate  at  the 
C  appropriate  spots,  and  processing  is  complete. 

CtLOCAL  VARIABLES 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ctt 


unmark  an  unmarked  state  variable  of  type  DOATE 
delete  a  marked  state  meaning  delete  this  tuple 
toogrt  a  diagnostic  state  meaning  index  >  maximum 

d  delete-ndate  index 

h  hardwire-ndate  set  index 

a  arbitrary  ndate  index 

hard  boolean  indicating  now  doing  hardwire  deletions 
hipri  stmt  function  true  when  hi-priority  is  on 
nhd  number  of  hardwire  dates  to  be  kept 
ignore  flags  indicating  that  the  corresponding  Buffei — 

DATE  should  not  be  used  to  set  NDATE  values 
clsest  buffer-DATE  index  such  that: 

BDATE<  clsest  )  >«  NDATE ( h  >  , 

but 

BDATE( clsest- 1 )  <  NDATE ( h )  ; 

Overflow  condition  indicated  by  clsest*  0  or  nbd+1 
low  nearest  lower  unignored  BDATE  to  BDATE( clsest ) 
high  nearest  higher  unignored  BDATE  to  BDATE< clsest  ) 
set  either  low  or  high  value 
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C  ASNCHK*** . . . . . . . . 

SCONTROL  segment»asgnd,check*3 
SUBROUTINE  asnchkiival) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS 

INTESER  ival 

c*  ***  ABSTRACT 

CtPURPOSE  Execut  es  diagnostic  action  numbered  ival 
CtAUOIT  HISTORY 

C  Oensmore  28-Mar-83  AUTHOR 

C*TYPE  manual  assigner  utility 

CfFORMAL  PARAMETERS 

Cin  ival  diagnostic  action  index 

CtCOMMON  BLOCKS 

Cin  asgn  assigner  data  block 

CfCALLER  asnsee 

Cf* 


**« 

•  •• 
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C  ASNCLN . * . . . * . 

SCONTROL  segment *ASGNQ 
SUBROUTINE  asncln 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ***  ABSTRACT  *♦* 

CfPURPOSE  ASigNer  CLeaN. 

C  Removes  any  instances  of  historical  or  current  jobs 

C  from  bufasn  to  ensure  that  no  duplication  in  the 

C  data  base  occurs 

Cf AUDIT  HISTORY 

C  MSCarey  lS-jun-83  AUTHOR 

CtFORMAL  PARAMETERS 
C  none 

CfCALLER  asnout 
Cf METHOD 

C  Perform  a  selection  which  will  cause  only  those  tuples  of 
C  interest  to  be  returned.  For  each  such  tuple,  figure  out 
C  which  cell  of  bufasn  it  was  put  in  and  decrement  that  cell 

C  Check  the  cell  value  to  see  if  it  is  now  <  0,  and  warn 

C  the  user  that  current/histor ical  assignments  may  not  be 
C  changed  with  the  assignor. 

CtLOCAL  VARIABLES 

C  cursor  (1)  for  nc jodat . hist j ,  (2)  for  .currj  selections 

Cff 
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C  ASNCLR . . . *## . . . . 

SCONTROL  segment*asgnd,check»3 
SUBROUTINE  asnclr 

C*  •**  ABSTRACT  *** 

CaPURPOSE  clears  screen  for  assigner  nodule 
CtAUDIT  HISTORY 

C  Densnore  17-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

CaCOMMON  BLOCKS 

Cin/out  asgn  assigner  data  block 
CaCALLER  Several  ASN  routines 
caa 
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C  ASNCMO*** ****************** . * . * . . 

^CONTROL  aegment*aagnd,check«3 

SUBROUTINE  aancmd( icmd, iaub , val ,nvai ,nval  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  icnd,  iaub , rival  ,mval ,  val(  nval ) 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Read  uaer  command  and  decode  it 
Cf AUDIT  HISTORY 

C  Denamore  17-Mar-83  AUTHOR 

CfTYPE  manual  aaaigner  routine 

Cf FORMAL  PARAMETERS 

Cout  icmd  major  command  index  (tied  to  /acrchr/ ) 

Cout  iaub  aubcommand  index  (/acrchr/) 

Cout  val  valuea  array  —  aet  of  integera  aeparated 

C  on  input  by  perioda  here. 

Cout  nval  length  of  val 

Cm  mval  maximum  length  of  val 

CtCOMMON  BLOCKS 

C*n/out  aagn  aaaigner  data  block 

Cin  acrchr  acreen  charactera 

Cf CALLER  aaaign 

CSMETHOO 

C  <Command-atring>  <Command>  <Subcommand>  [<Num>  {<Delim>  <Num>>] 

C  <Command>  (one  of  the  /acrchr/  charactera) 

C  <Subcommand>  <Command>  i  <Null> 

C  <Num>  (an  integer) 

C 

C  200 

CBLANK  BLANK  !  BLANK  DIGIT  ,->D0T  or  C0MMA>-,  BLANK 

Cl"  !  *  .->EQL<-  1  A  !  A  /  BLANK  C  !  ! 

:  /  :  : 

C  v  !  v  I  /  v  ! 

C  100 — >CM0 — >110 — >SubCMD — >120 — /DIGIT— >130 — >BLANK — >140 — >D0T — >150 
c  i  A  AC  : 

!  !  C  ’ - /DIGIT - >-•  !  C 

1 

C  Out  of  every  atate  ia  an  implicit  "ANY  ’-< - 0IGIT< - ’ 

C  OTHER  CHARACTER"  whoae  vector  leada  to 
C  an  error  atate,  which  returna  to  tl0. 

C 

CtLOCAL  VARIABLES 

C  caave  command  indicea  correaponding  to  eommanda 

C  for  which  aavea  (CALL  cmnsav )  muat  be  done 

Cff 
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C  ASNCNU . . . 

•CONTROL  segment»ASGNO 

SUBROUTINE  asncnv< numpds  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  nunpds 

C*  ♦»*  ABSTRACT  *«* 

CtPURPOSE  ASaigNer  CoNVert.  Converts  bufasn  into  tupfil. 

C  Basically,  input  is  as  displayed  by  assigner,  output 
C  is  tuples  as  found  in  the  data  base. 

CtAUOIT  HISTORY 

C  MSCarey  16-jun-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  nunpds  nunber  of  periods;  sane  as  nunper 

CSCALLER  asnout 

CtMETHOD 

C  *  Loop  over  yards  in  bufasn. 

C  (1)  For  each  yard,  make  a  list  of  classes  and  bufasn  record 
C  nunbers  for  those  which  have  non-zero  assignnents.  Sort  the  list. 
C  (2)  Search  the  list  for  classes  belonging  to  the  sane  spreading-group 

C  [nenu  option  conplexity-group 1 .  Load  all  classes  belonging  to 

C  the  sane  group  into  a  holding  buffer,  and  nark  then  as  processed 

C  on  the  list.  Unless  the  user  has  chosen  the  conplexity-group 

C  spreading  option,  this  function  will  return  one  class  at  a  time 
C  until  a  yard  is  exhausted.  Load  schedule  planning  factors 
C  for  each  class  of  interest  into  a  conpanion  buffer. 

C  (3)  For  each  group,  loop  over  columns  in  the  holding  buffer. 

C  For  each  column, 

C  loop  over  rows,  decrementing  each  cell  by  one  and  constructing 

C  a  record  for  the  tuple  buffer.  Attention  is  paid  to  job  series 

C  type  special  characters  here.  The  dates  put  into  the  tuple 

C  buffer  should  be  adjustment-basis  dates,  which  are  arrived  at 
C  from  the  display-basis  dates  using  the  planning  factors.  These 
C  dates  are  therefore  the  earliest  dates  allowable  after  the 
C  date-spreading  process  if  display-date  integrity 

C  is  to  be  maintained. 

C  NOTE  EXCEPTION:  if  display  basis  is  awards,  and  time  units  are 
C  years,  then  take  the  day  of  award  in  a  given  year  from  the 

C  job  desc  record,  rather  than  assuming  it  to  be  the  first  day 

C  of  the  year.  Then  calculate  the  adjdat’s  as  usual. 

C  (4)  If  the  user  has  specified  date-spreading  in  his  calling 
C  parameters,  conduct  the  date  spreading  here. 

C  First  spread  the  dates  in  the  tuple  buffer  completely  evenly, 

C  also  assigning  a  first  allowable  and  last  allowable  date  for  each 

C  Then  go  through  EACH  CLASS  sequentially;  on  finding  a  date 
C  earlier  than  its 

C  limit,  add  the  amount  needed  to  bring  it  up  to  the  limit  to 

C  every  item  in  the  class.  On  finding  a  date  later  than  its 

C  limit,  look  backwards  and  forwards  for  all  dates  with  the  same 
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C  limits  (i.e.  from  the  same  display  period)  and  spread 
C  within  that  period  evenly.  Now  recombine  the  classes  and  check 

C  for  instances  of  identical  adjdat’s.  If  found,  calculate  the 

C  mean  interval  for  the  nearest  *  ships  and  add/subtract  half  this 
C  amount  to  each  IF  this  will  not  violate  the  period  limits. 

C  Decide  which  to  add  or  subtract  to  depending  on  which  is  closer 

C  to  upper/lower  period  limits. 

C  (5)  Now  integrate  in  any  hardwire  tuples  in  the  data  base. 

C  SELECT  9  BY  yard, class  WHERE  scenar io*_cursen_  and  flag““up“ 

C  For  each  class  now  in  tupbuf,  calc  to  first  matching  tuple; 

C  if  any,  then  find  tupbuf  records  with  closest  adjdat,  and  mark 
C  them  gone; 

C  (6)  Now  get  the  rest  of  the  dates  for  softwires,  based  on  the  spread 
C  adjdat’s.  Also  construct  the  rest  of  each  tuple  and  put  it  into 
C  tupfil.  Use  standard  planning  factors  except  for  award: 

C  if  adjbasis  is  award,  use  as  calculated; 

C  IF  tunit  is  years  then  calc  from  factors  and  set  to  next-earliest 
C  desc-date 

C  ELSE  calc  from  factors  and  set  to  first  of  period  it’s  in,  based 
C  on  time_units 

C  <7)  On  end  of  busasn  far  this  yard,  update  data  base. 

CtLOCAL  UARIABLES 

clist  list  of  classes  in  current  yard 
cgcode  complexity-group  each  class  is  in 
cptr  pointer  to  bufasn  record  for  each  class 

nclas  number  of  classes  in  current  yard 

cused  true  if  a  class  has  been  processed 

hldcls  class  name  of  each  class  m  hid _ 

hldval  pe» — period  assignments  for  each  class  in  a  comp-grp 

hldcod  per-penod  codes  for  each  class  in  a  comp-grp 

nclash  number  of  classes  in  the  hid _  buffers  now 

Ctt 
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C  ASNCOO** . . . * . 

SCONTROL  segnent*asgnd,check*3 

SUBROUTINE  asncod< newcod,oldcod ) 

C*  .  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  oldcod,newcod 

C*  ***  ABSTRACT  *** 

CtPURPOSE  conditionally  sets  old  job  series  code  id  for  asndbi 
CtAUDIT  HISTORY 

C  Densnore  24-Jun-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  neucod  tcode  from  the  latest  tuple 

Cio  oldcod  the  relevant  code  from  this  scen/yd/cld/period 
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C  ASNCPY***************** ************ **»*•**•«**•*••*•*« 

SCONTROL  aegment-aagnd, check-3 

SUBROUTINE  asncpy<  val ,nval .move, auccea > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  nvai,  val(nval) 

LOGICAL  auccea, move 

C»  ***  ABSTRACT  *** 

CtPURPOSE  Makea  new  copiea  of  yarda  or  claaaes 
Cf AUDIT  HISTORY 

C  Denamore  08-Jul-83  AUTHOR 

CtTYPE  aaaigner  routine 

CtFORMAL  PARAMETERS 

Cin  val  input  valuea 

Cin  nval  number  of  input  valuea 

Cin  move  True  if  the  purpoae  of  the  copy  call  ia  to 

C  perform  a  move 

Cout  auccea  True  if  command  executed  aucceaafully 

CSCOMMON  BLOCKS 

Cin/out  aagn  aaaigner  data  block 

CtCALLER  aanrlc 

CtMETHOD 

C  Split  into  two  parta;  a  copy-yard  part  and  a  copy-claaa  part. 

C  The  copy-yard  part  ia  implemented  in  yrdcpy. 

C  The  copy-claaa  part  doea  routine  checka,  loopa  down  to  the 

C  fromclaaa  data,  and  then  holda  it.  Then  aanfnd  ia  called;  the 
C  remainder  ia  aimilar  to  the  code  in  aanadd  —  hard  to  make  into 
C  a  aubroutine  becauae  variablea  muat  be  held  in  limbo  around 
C  aectiona  of  code  which  are  different  for  the  two  applicationa. 
CtLOCAL  VARIABLES 


C 

buffer 

holda  old  aaaignment 

c 

i 

do  index 

c 

from 

old  or  from  yard  location 

c 

loc 

new  or  to  yard  location 

c 

ifree 

pointer  to  free  chain  after  claaa  copy 

c 

claaa 

holda  old  aaaignment  claaa  name 

c 

mag 

holda  meaaagea  to  be  aent  to  uaer  via  aanpro-mpt 

c 

f irstm 

n/o/  /1/o/n/g/e/r/  /u/a/e/d 

Ct# 
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C  ASN08I . * . . . * . . 

SCONTROL  segment*asgni ,check*3 
SUBROUTINE  asndbi 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Recovers  ASN  data  from  relations 
Cf AUDIT  HISTORY 

C  Oensmore  07-Apr-83  AUTHOR 

C  Oensnore  0B-May-83  To  begin  looping  thru  DB 

CtTYPE  manual  assigner  utility 

CfCOMMON  BLOCKS 

Cin  asgn  assigner  data  block 

Cf CALLER  asnini 

Cf METHOD 
Cff 
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C  ASNDBR  ****** . *************.*•******.* . ***** 

SCONTROL  segment»ASGNQ 
CSTRACE  asndbr; 

SUBROUTINE  aandbr< numyds ,mcyds , yard, nclas ,tupfst,lstcal, 

1  clist,mccls) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

.  '  integer  numyds ,mccls ,mcyds , nclaa , tupf 5t ( nclaa  ) 

character*( mcyds )  yard 
characters  mccla  )  cliat<nclaa) 
logical  latcal 

C*  ***  ABSTRACT  *** 

CtPURPOSE  ASaigNer  Data  Baae  tuple  Replacement  routine. 

C  Updatea  the  tuplea  in  the  data  baae  for  the  given  yard 
C  uaing  the  aaaignmenta  implied  by  +  he  current  atate  of 
C  bufasn. 

Cf AUDIT  HISTORY 

C  MSCarey  03-jul-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  numyda  number  of  yarda  in  bufaan;  if  zero,  clean  bufaan 

Cin  mcyda  length  of  yard 

Cin  yard  yard  to  be  updated 

Cin  nclaa  number  of  class- jobtypes  in  tupfil 

Cin  tupfat  pointer  to  firat  tupfil  record  for  each  claa-jobt 

Cin  latcal  true  if  thia  ia  the  laat  call  to  asndbr;  in  thia 

C  caae,  proceaaing  should  go  on  until  the  end  of  tuples 

C  for  this  scenario  so  that  any  trailing  deleted 

C  aaaignmenta  are  caught. 

Cin  clist  list  of  classes  found  in  bufasn  for  this  yard 

Cin  mccls  length  of  cliat  class  names. 

CfCOMMON  BLOCKS 

Cin  asoprm  outbound  paramtera 

Cm  asnocr  outbound  cursors 

Cio  astfr  buffer  for  relation  and  tupfil  records 

CSCALLER  asncnv 

C3METH00 

C  Basically,  series  of  cases.  There  ia  always  a  current  tuple 
C  and  a  current  tupfil  record.  The  actions  which  may  be  taken 

C  are  to  update  the  tuple  using  the  record,  to  add  the  record 

C  to  the  relation,  to  skip  to  the  next  tuple,  and  to  delete  the 

C  tuple.  Uhich  is  appropriate  depends  on  a  comparison  of  the 

C  values  of  the  yard, class,  and  jobtype  fields  m  the  tuple  and 

C  tupfil  holding  buffers.  Both  tuples  and  tupfil  records  are 

C  assumed  to  arrive  in  their  holding  areas  sorted  by  yard,  class, 

C  and  jobtype. 

CtLOCAL  VARIABLES 

C  eofil  true  if  no  more  records  in  tupfil 

C  latyrd  yard  name  of  tupfil  record  prev  to  current  record 

C  lstcls  class  " 
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1st  job  job  typ  “ 

next  record  number  in  tupfil  of  next  record 
iclas  class-job  type  on  clist  now  being  processed 

Ct# 
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C  ASNDEL************************************************ 
SCONTRQL  segment*asgnd,check»3 

SUBROUTINE  asndel< isub , val , nval ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  isub, nval ,  val <  rival  ) 

C*  ***  ABSTRACT  *♦* 

CIPURPOSE  implements  manual  assigner  delete  assignment  command 
C#AUOIT  HISTORY 

C  Densmore  15-Mar-83  AUTHOR 


CtTYPE 

manual 

assigner  routine 

CIFORMAL 

PARAMETERS 

Cin 

isub 

subcommand  index 

Cin 

val 

usei — input  values  array 

Cm 

nval 

length  of  val 

CICOMMON 

BLOCKS 

Cm 

scrchr 

screen  characters 

Cm/out 

asgn 

manual  assigner  blocks 

CtCALLER 

assign 

CIMETHOD 

C  I  f  an 

assignment  index  is  given,  deletes  that  assignment.  Check: 

C  first 

to  see  if  it  is  the  last.  If  so  or  if  no  assignment  givun 

C  the  yard  is  deleted  after  prompting  to  make  sure. 

CILOCAL  VARIABLES 

C 

msg 

message  buffer  for  asnpro/asnec 

C 

loc 

yard  index 

C 

before 

pointer  to  assignment  record  before  delete  item 

C 

item 

pointer  to  delete  item 

C 

after 

pointer  to  item's  successor 

C 

next 

do  index 

Cl# 
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C  ASNDOT***** . ******* . *** . **** 

^CONTROL  segment»asgnd,check*3 

SUBROUTINE  asndot ( get cl  a , alwdel , 1 an, cl ass, values , codes  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

L06ICAL  getcls , alwdel 
INTEGER  len, values ( len ) , codes < len  ) 

C  ***  CHARACTER*i2  class  —  12**mccls  (given  in  /asgn/ ) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Types  the  dots  for  prompting  of  assignments  input, 

C  and  accepts  and  verifies  the  input.  Output  to  values 

C  and  codes  array  in  decoded  form. 

CfAUDIT  HISTORY 

C  Oensmore  17-Mar-83  AUTHOR 

C&TYPE  manual  assigner  routine 

CtFORMAL  PARAMETERS 

Cin  getcls  .T.  if  shipclass  should  be  prompted  for  and 

C  received  as  input 

Cin  alwdel  .T.  if  DELetion  of  assignments  should  be  alloued 

C  for  modifications  purposes ...  input  form  is  "  —  “ 

Cin  len  number  of  periods  over  which  input  is  expected 

Cout  class  output  shipclass,  char*mccls. . .not  output  unless 

C  the  getcls  flag  is  true. 

Cout  values  output  values 

Cout  codes  output  codes 

CtCOMMON  BLOCKS 

Cin/out  asgn  assigner  data  block 

CtCALLER  asnadd,asnmod 

CfMETHOD 

C  Prompts  for  add  and  modify  commands,  via  dots  which  delineate 
C  proper  placement  of  each  number/code  sequence  (and  also  the 
C  class  name,  if  requested).  for  each  period,  the  following 
C  sequence  of  characters  <3  for  each  period)  are  valid;  the 
C  first  character  must  always  be  a  blank  ( CU  means  cundef)-- 


c 

p 

Chat — 1 

Char-2 

Chai — 3 

Value 

Code 

Lr 

c 

blank 

blank 

blank 

0 

0 

c 

» 

w 

zero 

0 

CU  IF  alwdel 

ELSE 

0 

c 

« 

N 

Digit3 

D3 

cdidef 

c 

N 

zero 

blank 

0 

CU  IF  alwdel 

ELSE 

0 

c 

M 

M 

zero 

0 

CU  IF  alwdel 

ELSE 

0 

c 

M 

Code2 

Digit3 

D3 

C2 

c 

" 

Digit2 

blank 

D2 

cdidef 

c 

It 

•i 

0igit3 

10*02+03 

cdidef 

CfLOCAL  VARIABLES 

C  m/c/c/l/s/1  —  variable  now  in  common 

C  cdots  prompt  for  class  name  (either  blank,  or  dots) 

C  dot2  prompt  for  each  period  assignment  input  (“  ..“) 

C  number  the  string  of  digits  0  through  9 
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buffer  location  where  user’s  input  is  accepted 
bl,b2,b3  each  character  of  a  given  assignment  entry 
iper  the  current  period  index  (l..len) 
nchar  the  number  of  blanks  before  first  prompt  dot 
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C  ASNDUN . * . * . . . 

SCONTROL  aegment*asgnd,check*3 

SUBROUTINE  asndwn< toploc , topind ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTE6ER  toploc , topind 

C*  ***  ABSTRACT  *** 

CfPURPOSE  performs  “DOWN"  (following  page)  command 
CfAUDIT  HISTORY 

C  Oensmore  l7-Mar-83  AUTHOR 

CfTYPE  manual  assignor  routine 

CtFORMAL  PARAMETERS 

Cin  toploc  value  desired  for  topyd 

Cin  topind  value  desired  for  topidx 

CfCOMMON  BLOCKS 

Cin/out  asgn  assignor  data 

CfcCALLER  asnfol .asnrfh 

CJMETHOD 

C  If  BOTTOM,  sets  low  limits  to  last  assignment  index,  then 
C  computes  upper  limits.  If  DOWN,  seta  upper  limits  to  former 
C  lower  limits  and  recomputes  lower  limits:  if  it  crosses  the 
C  bottom  then  BOTTOM  command  is  performed. 

C 

C  Also,  this  routine  always  recomputes  the  page  number  npagev. 
C»t 
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C  ASNEC . * . ******** 

4C0NTR0L  segment*asgnd,check*3 

SUBROUTINE  asnec<  what .value, type, text  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  what, value, type 
CHARACTER*25S  text 

C*  ***  ABSTRACT  *♦* 

CJtPURPOSE  Assigner  Error  in  Command  reporter 
Cf AUDIT  HISTORY 

C  Oensmore  17-Mar-83  AUTHOR 

CSTYPE  manual  assigner  routine 

CiFORMAL  PARAMETERS 

Cin  what  what  was  in  error;  refers  to  explicit  errors 

C  in  the  input  user  command,  rather  than  to  logic 

C  errors  caused  by  faulty  command  order  or  intent. 

C  0«none 


C  l*major  command  index 

C  2*subcommand  index 

C  -N-val  array  element  IN! 

Cin  value  Ualue  code  for  the  item  in  error;  the  value  of  the 

C  index  or  the  value  of  the  val  array  element. 

C  Undefined  if  what-0. 

Cin  type  Error  type!  0*some  external  system  error  or  error 

C  about  which  no  further  information  should  be  printed. 

C  Inexplicit  user-input  command  error.  2*user  stressed 

C  assigner  up  against  some  limitation  ( array  bound, etc.) 

Cin  text  Delimited  text  string  which  should  be  printed  to 

C  assist  in  describing  the  cause  of  the  problem. 

C3CQMMQN  BLOCKS 

Cin/out  asgn  assigner  data  block 

CfCALLER  various  ASN  routines 


CS* 


12-97 


ASSIGNER  ABSTRACTS 


C  ASNEND . ***************** . . . 

SCONTROL  segment»asgnd, check-3 
SUBROUTINE  asnend 

C*  ***  ABSTRACT  **• 

C4PURP0SE  Prepares  ASGN  for  STOP  < End  of  process) 

Ct AUDIT  HISTORY 

C  Densnore  19-Aug-83  AUTHOR 

CiTYPE  assigner 

Cf COMMON  BLOCKS 

Cin  asgn 

CfCALLER  asgn 

CfMETHOD 

C  Currently  just  closes  the  files  which  are  open. 

CS* 
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C  ASNEOI . * . ******* . 

SCONTROL  segment«asgnd, check«3 
SUBROUTINE  asneoi 

C*  ***  ABSTRACT  *** 

CfPURPOSE  reverts  I/O  switches  upon  EOF  on  ’masn'  in  /asgn/ 
CfAUOIT  HISTORY 

C  Denamore  17-Mai — 83  AUTHOR 

CtTYPE  manual  assigner  routine 

ctconnoN  blocks 

Cin/out  asgn  assigner  data  block 

Cin/out  ioc  input/output  variables 

Cf CALLER  asncmd , asndot , newyrd , remyr d 
CSt 
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C  ASNFNO . ****** . ***** . 

#CONTROL  segment *asgnd, check*3 

SUBROUTINE  asnfnd< loc, class, look, be fore, item, after  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  loc , look , be fore, item , after 
C  ***  CHARACTER*12  class  —  12**mccls  /asgn/ 

C*  ***  ABSTRACT  *** 

C3PURP0SE  Locates  a  particular  class  within  a  given  yard 
Cf AUDIT  HISTORY 

C  Densmore  17-Mar-83  AUTHOR 


CtTYPE 

manual 

assigner  routine 

C*F0RMAL 

PARAMETERS 

Cin 

loc 

yard  index 

Cin 

class 

name  of  class  char*12 

Cin 

C 

look 

if  location  of  new  els  is  by  index,  look  is  nonzero 
and  gives  that  index;  means  "ins  before  class  LOOK" 

Cout 

C 

before 

pointer  to  assignment  record  preceding  item 

0  if  item  is  first 

Cout 

C 

C 

C 

C 

item 

pointer  to  assignment  record  with  given  class 

0  if  item  not  found  —  before/after  give 
proper  location  for  sorted  order 

If  item  <>  0  then  caller  may  assume  that  a 

GETASN  has  been  done  on  item. 

Cout 

C 

CtCOMMON 

after 

BLOCKS 

pointer  to  assignment  record  succeeding  item 

0  if  item  is  last 

Cin/out 

CfCALLER 

CM 

asgn 

asnadd 

assigner  data  block 
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C  . . ****** . 

SCONTROL  segment»asgnd, check-3 

SUBROUTINE  asnfol< isub , val ,nval ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *«• 

INTEGER  isub ,nval , val< nval  ) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  implements  manual  assigner  follow  (down)  page  command 
C*AUDIT  HISTORY 

C  Denamore  15-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

Cf FORMAL  PARAMETERS 

Cin  isub  subcommand  index 

Cin  val  usei — input  values  array 

Cin  nval  length  of  val 

C3COMMON  BLOCKS 

Cin  scrchr  screen  characters 

Cin/out  asgn  manual  assignor  blocks 

CtCALLER  assign 

C*t 
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C  ASNSOQ . . . ********* . * . . 

SCONTROL  segment*AS6NQ 
CSTRACE  asngoq ; 

LOGICAL  FUNCTION  asngoq < idurO 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  idum 

C*  ***  ABSTRACT  *** 

CtPURPOSE  ASaigNer  Get  Outbound  Quit  response.  Prompts 
C  user  before  asaigner  outbound  processing  commences  to 

C  see  if  results  of  session  should  just  be  thrown  away. 

C*AUDIT  HISTORY 

C  MSCarey  27-jun-83  AUTHOR 

C*F0RMAL  PARAMETERS 

Cin  idum  dummy  required  by  FORTRAN 

CtCOMMON  BLOCKS 

Cin  ioc  io  unit  assignments 

CtCALLER  asnout 

C1METH0D 

C  Print  an  explanatory  message  and  call  yesno 
Cf LOCAL  VARIABLES 
C  none 

C«t 
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C  ASNHLP***#***#********* ******************** *********** 
SCONTROL  3egment»aagnd,check«3 

SUBROUTINE  aanhlp<  iaub, val, nval ) 

C*  ♦**  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  iaub , nval , val< nval ) 

c*  ***  ABSTRACT  *** 

CtPURPOSE  retrievea  help  text  for  ASN 
CtAUOIT  HISTORY 

C  Denamore  l?-Mar-83  AUTHOR 


CfTYPE 

manual 

aaaigner  routine 

CtFORMAL 

PARAMETERS 

Cin 

iaub 

aubcommand  index 

Cin 

val 

valuea  array 

Cin 

CtCOMMON 

nval 

BLOCKS 

length  of  val 

Cin/out 

CtCALLER 

Ctt 

aagn 

aaaign 

aaaigner  data  block 
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C  ASNHUL . . . . 

SCONTROL  segment *ASGNO 
SUBROUTINE  asnhul 

C»  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C»  ♦**  ABSTRACT  *** 

CfPURPOSE  ASsigNer  HUL1  number  reset.  Makes  sure  each  ship 
C  in  the  current  scenario  has  an  unique  and  reasonable 

C  hull  number 

CfAUDIT  HISTORY 

C  MSCarey  20-jun-83  AUTHOR 

CfFORMAL  PARAMETERS 

C  none 

CtCOMMON  BLOCKS 

C  none 

CfCALLER  asnout 

CtMETHOD 

C  Get  the  maximum  hull  number  for  each  class  in  ncjoprj 
C  from  the  historical/current  relations.  Execute  command 

C  file  NEWHUL.RPRQCS  to  do  this,  first  writing  the  current 

C  scenario  key  into  it  for  each  of  the  three  schedule  files. 

CtLQCAL  VARIABLES 
C  none 

Ctt 
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C  ASNINI  *****************************************  *#***•»** 

SCONTROL  segpient*asgni  ,check*3 
SUBROUTINE  asnmi<  abort  ) 

LOGICAL  abort 

C*  ***  ABSTRACT  *** 

C1PURPOSE  Manual  Asaigner  Initialization  Routine 
CSAUDIT  HISTORY 

C  Densmore  07-Apr-83  AUTHOR 

CfTYPE  Manual  asaigner  routine 

CtFORMAL  PARAMETERS 

Cout  abort  true  if  user  selects  abort 
CtCOMMON  BLOCKS 

Cin/out  asgn  asaigner  data  block 

CtCALLER  assign 

CtMETHOO 

C  Initialization  is  divided  into  three  steps.  The  first  is 
C  to  set  up  hardwire  values.  Next,  certain  variables  are  input 
C  from  a  file  (FILE04).  Lastly,  the  OESC  and  JOB  relations  are 
C  consulted  to  obtain  assignor  data  block  initial  values. 

Ctt 


ASSIGNER  ABSTRACT 


C  ASNLBL************************************************ 
SCONTROL  segment»asgnd,check*3 

SUBROUTINE  asnlbl<ydlbl,clslbl, total, start) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

LOGICAL  ydlbl.clalbl, total 
INTEGER  start 

C*  ***  ABSTRACT  *** 

CtPURPOSE  print  top  two  rows  of  assigner  display  —  period  rows 
CtAUDIT  HISTORY 

C  Qensmore  17-Mar-83  AUTHOR 

CfTYPE  manual  assigner  routine 

CtFORMAL  PARAMETERS 

Cin  ydlbl  .T.  if  "yard"  should  be  printed 

Cin  clslbl  .T.  if  "shipclass"  should  be  printed 

Cin  total  .T.  if  total  for  the  rows  will  be  printed 

Cin  start  index  of  first  period  to  be  printed 

CtCOMMON  BLOCKS 

Cin/out  asgn  assigner  data  block 

CJtCALLER  asnadd,asnmod,asnrf h 

C*# 
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C  ASNLEU  *•*•******•****•»**♦********#***♦♦*****♦*****♦*,**, 
SCONTROL  segment*ASGNQ 

SUBROUTINE  asnlev(quit) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  •  ** 

logical  quit 

C*  ***  ABSTRACT  **♦ 

CtPURPQSE  ASsigNer  LEaUe.  Cleans  up  assigner  files  and 
C  relations  before  return  to  the  menu  system. 

CSAUOIT  HISTORY 

C  MSCarey  22-jun-B3  AUTHOR 

CtCOMMON  BLOCKS 

Cio  asnocr  cursors  for  the  assigner 

Cin  asoprm  assigner  outbound  parameters 

CtCALLER  asnout 
CtMETHOO 

C  Many  calls  to  rvclos  and  filcls 
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C  ASNLFT . ****** . * . *********** 

SCONTROL  segment*asgnd,check*3 

SUBROUTINE  asnlf t( isub, val ,nval  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  isub, rival ,  val<  nval ) 

C*  ***  ABSTRACT  *** 

CfPURPOSE  implements  manual  assigner  left  page  command 
CtAUDIT  HISTORY 

C  Densmore  iS-Mai — 83  AUTHOR 

CtTYPE  manual  assigner  routine 

CfFORMAL  PARAMETERS 

Cin  isub  subcommand  index 

Cin  val  user-input  values  array 

Cin  nval  length  of  val 

C#C0MM0N  BLOCKS 

Cin  scrchr  screen  characters 

Cin/out  asgn  manual  assigner  blocks 

CtCALLER  assign 

CSMETHOD 

C  Determines  if  edge  command  is  needed;  pages  left/right 
C  accordingly. 

Ctt 


ASSIGNER  ABSTRACTS 


C  ASNLPR* . * . ***** . ***** 

SCONTROL  segment*asgnd, check-3 

SUBROUTINE  asnlpr<  isub,  val , rival ) 

C*  **♦  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  isub, rival, val<  nval  ) 

C*  ***  ABSTRACT  *** 


CtPURPGSE  PRINT  command  executive 
CtAUDIT  HISTORY 

C  Qensmore  26-May-83  AUTHOR 

CtTYPE  Manual  assigner  routine 

CfFORMAL  PARAMETERS 

Cin  isub  subcommand  index 

Cin  val  user-input  values  array 

Cin  nval  length  of  val 

C«C0MM0N  BLOCKS 


Cin/out  asgn  manual  assigner  blocks 

CtCALLER  assign 

CtMETHGQ 

C  Determines  validity  of  input.  Given  valid  values,  it  then 
C  prints  to  a  (reset)  outasn  via  aanrfh,  manipulating  the 
C  top/ low  yards/ indexes  as  required  to  get  whole  yards  on 
C  a  page. 

CtLQCAL  VARIABLES 

C  start  first  yard  to  print 

C  stop  last  yard  to  print 

C  ydfrst  first  yard  to  be  printed  on  this  page 

C  ixfrst  first  index  to  be  printed  on  this  page 

Cft* 
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C  ASNMOQ**** . **************** . * . ***** 

SCONTROL  segment*asgnd,check*3 

SUBROUTINE  asnmod< isub, val ,nval > 

C*  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  isub, rival  ,val<  nval ) 

C*  ***  ABSTRACT  *** 

CtPURPOSE  implements  manual  assigner  modify  assignment  command 
C#AU0IT  HISTORY 

C  Oensmore  lS-Mar-83  AUTHOR 


C#TYPE 

manual 

assigner  routine 

CfFORMAL 

PARAMETERS 

Cin 

isub 

subcommand  index 

Cin 

val 

user-input  values  array 

Cin 

nval 

length  of  val 

CtCOMMON 

Cin 

BLOCKS 

scrchr 

screen  characters 

Cin/out 

asgn 

manual  assigner  blocks 

CtCALLER  assign 

CfMETHOO 

C  Locates  yard/assignment  and  loops  over  periods 

CSLOCAL  VARIABLES 

C 

msg 

message  buffer  for  prompts 

C 

valbuf 

values  buffer 

C 

codbuf 

codes  buffer 

C 

dlff 

difference  between  buffer  and  old  valasn  page 

C 

loc 

yard  location  index 

C 

idx 

assignment  index 

C 

change 

SUM<  di f f C i  ]  ) 

c 

start 

starting  period  on  current  page 

c 

len 

number  of  periods  on  current  page 

c 

last 

last  period  on  current  page 

c 

item 

pointer  to  assignments  buffer  beine  modified 

c 

t ,  ni  1 

easier  to  read  than  TRUE/FALSE 

c 

begin 

T  on  first  iteration  of  #60,  F  otherwise 

CM 
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C  ASNMOU******* . ****** . ** . * . ***** 

SCONTROL  segment*asgnd,check*3 

SUBROUTINE  asnmov< val ,nval ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  nval,  val (nval) 

C*  ***  ABSTRACT  *** 

CfPURPQSE  Implements  Relocate  Move  command 
CiAUDIT  HISTORY 

C  Densmore  08-Jul-83  AUTHOR 

C9TYPE  assigner  routine 

CfFORMAL  PARAMETERS 

Cin  val  numeric  values 

Cin  nval  number  of  values 

C9C0MM0N  BLOCKS 

Cin  asgn  assigner  data  black 

CtCALLER  asnrlc 

CfMETHOD 

C  See  inline  comments 

C  Implemented  via  copy  followed  by  delete 
C9# 
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C  ASNOUT  . . * . . . * 

SCONTROL  segment»ASGNO 
SUBROUTINE  asnout 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C*  ABSTRACT  *** 

CfPURPOSE  ASsigNer  OUTbound.  Converts  edit-able  assigner 
C  data  base  to  RELATE  data  base  format. 

C*AUDIT  HISTORY 

C  MSCarey  lG-jun-83  AUTHOR 

CfFORMAL  PARAMETERS 
C  none 

CtCOMMON  BLOCKS 

C  asoprm  general  outbound 

CtCALLER  assign 

CtMETHOO 

C  (1)  Prompt  the  user  to  see  if  he  wants  to  exit  without  saving 
C  the  results  of  his  assigner  session.  Intended  to  allow 

C  users  to  peruse  assignments  without  having  to  pay  the 

C  execution-time  price  of  the  outbound  leg  if  they  have  made 

C  no  changes.  Remind  the  user  at  this  point  that  no  changes 

C  to  repair  or  historical/current  assignments  will  be  saved. 

C  (2)  Remove  from  bufasn  any  instances  of  historical/current 
C  assignments,  where  an  instance  is  defined  as  an  increment 

C  in  any  bufasn  cell. 

C  (3)  Convert  bufasn  into  a  set  of  tuples,  one  per  ship,  which 
C  is  merged  with  any  flagged  (’hardwire')  tuples  from  the 

C  RELATE  data  base.  Take  care  of  uniform  spreading  of 

C  construction  schedule  dates  here. 

C  -  Make  an  update  pass  on  the  data  base  so  that  the  set  of 

C  tuples  in  the  data  base  is  identical  to  that  generated 

C  in  step  3.  Note  that  subsidiary  tuples  must  be  purged 

C  for  purged  hardwire  tuples. 

C  (5)  Make  another  update  pass  at  the  data  base  to  arrive  at 
C  a  set  of  consistent  hull  numbers,  unique  for  each  ship. 

C  'Hardwire'  tuples  retain  their  own  hull  numbers. 

C  (5)  Clean  up  and  exit. 

CtLOCAL  VARIABLES 

C  quit  true  if  user  wants  to  throw  away  bufasn 

C»t 
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c  asnpop************************************************ 

SCONTRQL  aegment*aagnd , check*3 

SUBROUTINE  aanpop< iaub , val , nval > 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  iaub, nval , val ( nval ) 

C*  ***  ABSTRACT  *** 

C#PURP0SE  per forma  termination  code  when  exit  requeated  from  ASN 
CtAUDIT  HISTORY 

C  Denamore  17-Mar-83  AUTHOR 

CtTYPE  manual  aaaigner  routine 

CtFORMAL  PARAMETERS 

Cin  iaub  aubcommand  index 

Cin  val  input  valuea  array 

Cin  nval  length  of  val 

CfCOMMON  BLOCKS 

Cin/out  aagn  aaaigner  data  block 

CtCALLER  aaaign 

Ctf 
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C  ASNPRN*********************** ****************** *#***## 

SCONTROL  segment »asgnd , check»3 

SUBROUTINE  asnprn<  typcls , total , start , idx  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  start, idx 
LOGICAL  typcls, total 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Prints  a  line  from  the  buffer  during  display  formatting 
CtAUOIT  HISTORY 

C  Densmore  17-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

C#F0RMAL  PARAMETERS 

Cin  typcls  .T.  if  shipclass  name  should  be  printed 

Cin  total  .T.  if  total  for  row  should  be  printed 

Cin  start  index  of  first  period  on  the  row 

Cin  idx  assignment  index  < for  printing  purposes  only) 

C#C0MM0N  BLOCKS 

Cin/out  asgn  assigner  data  block 

CtCALLER  asnmod,asnrf h 

C*# 
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C  ASNPRO******** ********************************** ****** 

SCONTROL  segment*asgnd, check-3 
SUBROUTINE  asnpro(text) 

C*  «**  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER*255  text 

C*  ***  ABSTRACT  *** 

CtPURPOSE  prints  prompt  text  conditionally 
CfAUDIT  HISTORY 

C  Denamore  17-Mai — 83  AUTHOR 

CfTYPE  manual  asaigner  routine 

CSFORMAL  PARAMETERS 
Cin  text  prompt  text 

CtCOMMON  BLOCKS 

Cin/out  asgn  asaigner  data  block 

CfCALLER  various  ASN  routines 

C*i 


12-115 


ASSIGNER  ABSTRACTS 


C  A5NPRU . . . •••«•••••*«• . ** 

SCONTROL  segment-asgnd, check-3 

SUBROUTINE  asnprv< isub,val ,nval ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  i sub, rival  ,val( rival ) 

C*  ***  ABSTRACT  *** 

CSPURPOSE  implements  manual  assigner  previous  (up)  page  command 
CtAUDIT  HISTORY 

C  Oensmore  15-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

CfFORMAL  PARAMETERS 

Cin  isub  subcommand  index 

Cin  val  user-input  values  array 

Cin  nval  length  of  val 

C#C0MM0N  BLOCKS 

Cin  scrchr  screen  characters 

Cin/out  asgn  manual  assigner  blocks 

CtCALLER  assign 

C  METHOD 

C  If  TOP  then  set  top  limits  and  locate  louer  limits. 

C  If  UP  then  set  louer  limits  from  former  upper  limits  and  locate 
C  upper  limits;  if  top  limits  are  crossed,  then  a  TOP  command 
C  is  done. 

Ctt 


I 
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C  ASNROC*****  *#*#***#♦♦***#*******■*•»****«*■**■***■»■»■*•*  **■»■»* 
SCONTROL  segment»asgnd,check*3 

SUBROUTINE  asnrdc(msg,hlptxt ,case,proc, buffer, len.vld ) 
C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

PARAMETER  lcase*4,  lproc-4 


INTEGER  ien 
LOGICAL  vld 

CHARACTER  msg*255 , hlptxt *8 , case* lease , proc* lproc , buff er*(  len ) 
C*  ***  ABSTRACT  *** 

C4PURPQSE  Semi-general  purpose  input  routine  for  assigner 
C  Routine  name  means  ASsigNer  ReaD  Character  string 

Cf AUDIT  HISTORY 


C  Oensmore  14-Jul-83 

C3TYPE  assigner  routine 

C«F0RMAL  PARAMETERS 


AUTHOR 


Cin  msg 

Cin  hlptxt 

Cin  case 

C 
C 
C 
C 
C 

Cin  proc 

C 

C 

c 

c 

Cin/out  buffer 
C 

Cm  len 

Cout  vld 

CtCQMMQN  BLOCKS 
Cin  asgn 

Cin  scrchr 

CtCALLER  various 
C4METH0D 

CtLOCAL  VARIABLES 
C  cases 

C  procs 

C  aluird 

C** 


buffer 


OTS  message  to  print  as  a  prompt  before  reading 
Char*8  help  text  —  not  needed  if  iproc*3 
character  case  flag;  first  4  characters  significant 
’CLASS  '  ;  set  case  for  class  name 

’YARD  ’  =  set  case  for  yard  name 

’UPPER  ’  =  set  case  to  uppercase 

’LOUER  ’  :  set  case  to  lowercase 

’NOCASE  ’  do  not  change  case  of  input 
Process  flag;  first  4  characters  significant 
'READ  ’  Read  buffer;  check  &  process  it 
’NULLREAD*  Like  READ,  +  allow  null  input 
’CHECK  ’  Check  buffer,  process  it 
’PROC  ’  =  Only  process  buffer 
“in"  only  if  proc  isn’t  READ;  this  is  the  buffer 
which  is  optionally  input  and  checked 
number  of  characters  m  buffer 

False  if  buffer  not  valid  (like  for  EOF)  or  for  POP 

assigner  data  block 
screen  characters 


charactei — case  options 
procedural  options 

stmt  fn  means  case  is  READ  or  NULLREAD 
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C  ASNREF . . . 

^CONTROL  9egment*asgnd,check»3 
SUBROUTINE  asnref 

CtPURPOSE  asks  for  the  regular  screen  refresh 

CtAUTHOR  Densnore  1  April  1983 

C## 
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C  ASNREQ** **************** **********  ******************** 

SCONTROL  segment*asgnd,check=3 
SUBROUTINE  asnreoi ormode ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  ormode 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Conditionally  reorders  classes  in  each  yard  with 
C  respect  to  their  input  order. 

CtAUOIT  HISTORY 

C  Densmore  23-Jun-83  AUTHOR 

CtTYPE  assigner  inbound  routine 

CtFORMAL  PARAMETERS 


Cin  ormode 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

CtCOMMON  BLOCKS 


Zero  bit  means  alphabetic  ordering  desired: 

One  bit  means  output  tuples  in  order  of  input; 

Bit  1=  for  sort  order  of  shipclasses .  .  . 
shipclass  order  is  ignored  by  asntpx,  so  order  is 
always  input  alphabetic.  This  routine  determines 
and  accomplishes  class  reordering  if  necessary 
Bit  2=  far  sort  order  of  shipyards...  shipyard 
order  is  currently  ignored. 

If  insufficient  space  exists  to  order  a  yard’s 
classes  alphabetically,  the  order  mode  is  changed 
to  input-order-for-classes  by  force. 


Cin/out  asgn  assigner  data  block 

Cm  const  for  llarge 

CtCALLER  asndbi 
C#METH00 


C  Recover  ordering  values  from  class  buffer  lines  and  save  the  pointers 
C  to  each  line.  Use  jhash  to  find  new  ordering.  Set  nextp  values. 
CtLOCAL  UARIABLE3 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ct« 


omin,omax  smal lest/ largest  orders  value 
ptrs  the  pointers  for  each  yard 

orders  the  order  numbers  for  each  yard:  from  shpord; 

used  as  data  in  the  jhash  call 
mbuf  one  more  than  the  maximum  number  of  classes 

possible  in  a  yard  —  the  last  one  is  used  to 
set  the  end  class  buffer  line’s  nextp  to  zero 
item  pointer  to  current  class  buffer  line 

loc  index  to  current  yard 

count  number  of  class  buffer  lines  in  this  yard 

jh  ih< i  ) 

jhl  ih< i  +  l  ) 

i  do  loop  index  from  1  to  count 

lh  output  from  jhash  giving  reordering 

alpha  true  if  class  sort  mode  is  alphabetic 

toobig  true  if  insufficient  space  to  sort  a  yd’s  clses 
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C  ASNRFH*  *•****■******•*'****'********■»*■»'*'*•*•»*■*•**  •**■•********* 

SCONTROL  segment^asgnd , check*3 

SUBROUTINE  asnrfh<  isub ,  val ,  rival  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  isub,nval ,val<nval  ) 

C*  ***  ABSTRACT  *** 

CSPURPOSE  ReFresH  display  on  screen  for  ASN  assigner  nodule 
CtAUDIT  HISTORY 

C  Oensmore  l7-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

CSFORMAL  PARAMETERS 

Cin  isub  subcommand  index 

Cin  val  values  array 

Cin  nval  length  of  val 

CtCOMMON  BLOCKS 

Cin/out  asgn  assigner  data  block 

CfCALLER  various  ASN  routines 

C«# 
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C  ASNRLC*** ******************+*■***************** ******** 

SCONTROL  segment-asgnd, check-3 

SUBROUTINE  asnrlc< isub , val , nval  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  isub, nval,  val<nval) 

C*  ***  ABSTRACT  **♦ 

CfPURPOSE  Implements  Relocate  command 
Cf AUDIT  HISTORY 

C  Oensmore  08-Jul-83  AUTHOR 

CfTYPE  assigner  high  level  routine 
CfFORMAL  PARAMETERS 
Cm  isub  subcommand  code 

Cin  val  numeric  values 

Cin  nval  number  of  values 

CfCOMMON  BLOCKS 

Cin  scrchr  screen  characters 

Cf CALLER  assign 

Cf# 
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c  ASNSEE*** ************************************** ******* 

SCONTRQL  segment»a3gnd,check»3 

SUBROUTINE  asnsee< val , nval ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  nval , val ( nval ) 

C*  ***  ABSTRACT  ♦** 

CfcPURPOSE  interpret  the  '??’  command  —  diagnostic  switching 
CtAUDIT  HISTORY 

C  Densmore  28-Mai — 83  AUTHOR 

CtTYPE  manual  assigner  routine 

CfFORMAL  PARAMETERS 

Cin  val(nval)  values  input  from  user;  interpreted  as  menu  subcmds 

CtCOMMON  BLOCKS 

Cin  asgn  assigner  data  block 

CfCALLER  asnhlp 

Ctt 
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»#** 


C  ASNSWP«*< 

SCONTROL  segment*asgnd,check»3 

SUBROUTINE  asnswp< val , nval ) 

c*  ***  FORMAL  PARAMETER  DECLARATIONS  *♦* 

INTEGER  nval,  val (nval) 

C*  ***  ABSTRACT  **♦ 

CfPURPOSE  Implements  Relocate  Swap  command 
Cf AUDIT  HISTORY 

C  Densmore  08-Jul-83  AUTHOR 

CfTYPE  assigner  routine 

CiFORMAL  PARAMETERS 

Cin  val  numeric  values 

Cin  nval  number  of  values 

CfCOMMON  BLOCKS 


Cin  asgn  assigner  data  block 

CtCALLER  asnrlc 
CM 
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C  ASNTUP . * . . . 

SCONTROL  segment *ASGNO 

SUBROUTINE  asntup<cursor,eof  ) 

C*  **«  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  cursor 
logical  eof 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Reads  the  next  tuple  on  cursor,  which  must  always 
C  be  open  on  ncjodat .proj j 
Ct AUDIT  HISTORY 

C  MSCarey  01-jul-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  cursor  relate  cursor  number 

Cout  eof  true  if  end  of  relation  found,  or  if  scenario 

C  in  found  tuple  not  same  as  current  scenario 

CtCOMMON  BLOCKS 

Cin  asoprm  outbound  parameters 

Cio  astfr  tuple/record  holding  buffers 

Cin  fld05  field  list  for  ncjodat .proj j 

Cin  scenar  scenario  info 

CtCALLER  asndbr 

CtMETHOD 

C  Read  the  tuple  and  check  if  scenario  is  different  from  the 
C  current  one;  if  so  then  eof. 

C«# 
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c  asnunl************************************************ 

SCONTROL  segment*asgni ,check»3 

SUBROUTINE  asnunK  tuple, yard, cl ass , series , scnaro, date , order , type  ) 
C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

CHARACTER  scnaro* 12 

C  ***  CHARACTER  yard*mcyds,  class*mccls,  series*mccd,  type*mcjt 
INTEGER  tuple< 1  ) 

INTEGER**  date, order 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Unloads  the  tuple,  in  char  form,  into  constituent  parts 
Cf AUDIT  HISTORY 

C  Densmore  22-Jun-83  AUTHOR 

CtTYPE  assigner  inbound  routine 

Cf FORMAL  PARAMETERS 

Cin  tuple  integer  version  of  the  tuple 

Cout  yard, class, scnaro  yard/class/scenar io  names 

Cout  series  job  series  code  name,  like  Lead,  etc. 

Cout  type  job  type,  like  NeuCon,  etc. 

Cout  date  RELATE  date  on  which  the  job  is  marked  (one  of 

C  award, start, keel, launch, delivery  dates) 

Cout  order  the  ASN-Order  value  which  determines  input  order 

Cf COMMON  BLOCKS 

Cm  asgn  assigner  data  block,  used  for  parameter  values 

Cin  asnvld  assigner  valid  lists,  used  for  parameter  values 

CfCALLER  asntpx ,nxtcls 
CfMETHOD 

C  Unloads  items  into  the  output  variables  in  the  order  they  are 
C  found  in  the  tuple  to  begin  with.  Note  the  type  conversions 
C  that  are  often  necessary.  The  parameters  tup...  indicate  the 
C  lengths  alloted  the  various  values  within  the  tuple  itself. 

C  The  lengths  of  the  output  variables  are  determined  from  common 
C  block  parameter  statements.  See  asntpi  for  input  tuple  order. 
CfLQCAL  UARIABLES 

C  tup...  *2  lengths  of  various  tuple  element  values 

C  cbuf,ibuf  buffer  to  avoid  assignment  type  conversion 

C  ifour.jfour  buffer  to  avoid  conversion 

Cff 
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C  ASNVAL* ********* . . . ******* . **** 

SCQNTROL  segment»asgni ,  check»3 
SUBROUTINE  asnval 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Removes  invalid  yards/classes  under  current  scenario 
C  so  that  an  old  buffer  is  consistent  with  new  constraints 

CtAUOIT  HISTORY 

C  Densmore  03-June-83  AUTHOR 

CfTYPE  assignor  routine 

CfCOMMON  BLOCKS 

Cin/out  asgn  assignor  data  block 

CtCALLER  asnini 

CtMETHOD 

C  First,  loop  over  yards  and  call  valyrd  for  each  to  check  that 
C  its  appearance  in  the  buffer  is  allowed.  If  so,  then  go  on 
C  to  the  next  yard  until  EOY.  If  not,  then  remyrd  effectively 
C  increments  the  yard  index. 

C 

C  Next,  perform  a  similar  loop  for  classes  in  each  yard.  One 
C  caveat  is  the  possibility  that  the  last  class  in  a  yard  might 
C  be  deleted. 

CiLOCAL  VARIABLES 


C 

iyard 

yard  index 

c 

old 

old  yard  or  class  index  as  displayed  on  last  refrsh 

c 

leny 

actual  character  count  of  yard  name 

c 

c 

valid 

true  if  there  have  been  no  yard/class  deletions  yet 
( le.  all  present  are  valid... used  for  header  print) 

c 

before 

pointer  to  buffer  record  before  current  record 

c 

item 

pointer  to  current  record 

c 

after 

pointer  to  next  record 

C## 
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c  ASNWID********************** ******************* ******* 

$CONTROL  segment-asgnd,check=3 

SUBROUTINE  asnwid(  start , len, last  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  start , len, last 

C*  ***  ABSTRACT  *** 

CfPURPOSE  accepts  start  period  index,  computes  len  and  last 
CiAUDIT  HISTORY 

C  Oensmore  17-Mai — 83  AUTHOR 

CfTYPE  manual  assigner  routine 

CtFORMAL  PARAMETERS 

Cin  start  first  period  index 

Cout  len  last-start+l 

Cout  last  last  period  index  —  MIN( numper , start+mperh-1  ) 

CtCOMMON  BLOCKS 

Cin/out  asgn  assigner  data  block 

C3CALLER  various  ASN  routines 

C*# 
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C  ASNYRD* . . . **♦* . 

SCONTROL  aegment*aagnd,check»3 

SUBROUTINE  asnyrd< loc ,name, len  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  loc, len 

C  *•**  CHARACTER  name*12  12“-mcyda  —  /aagn/ 

C*  ***  ABSTRACT  *** 

C*PURPOSE  printa  yard  name/ index  and  the  — + — + — +  stuff 
CtAUDIT  HISTORY 

C  Denamore  l7-Mar-83  AUTHOR 

CtTYPE  manual  aaaigner  routine 

CfFORMAL  PARAMETERS 

Cin  loc  yard  index 

Cin  name  yard  name 

Cin  len  number  of  perioda 

CfCALLER  aanrfh 

Ctt 
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C  ASOCMP  ************************************************ 

SCONTROL  segment »ASGNO 
CSTRACE  asocmp; 

INTEGER  FUNCTION  asocmp< rvalue, fvalue, len  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  len 

character^  len  )  rvalue, fvalue 

C*  ***  ABSTRACT  *♦* 

CtPURPOSE  ASsigner  Outbound  field  CoMParison  utility.  Returns 
C  -1  if  rvalue  >  fvalue,  0  if  they  are  equal,  1  if  rvalue<fvalue 
C3AUDIT  HISTORY 

C  MSCarey  03-jul-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  rvalue  character  string 

Cin  fvalue  character  string 

Cin  len  length  of  strings 

CSCOMMON  BLOCKS 

C  none 

CtCALLER  asndbr 

CtMETHOD 

C  Comparison. 

Ctf 
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C  ASOQEL  *********************************************** 

SCONTROL  aegment-ASGNO 
CSTRACE  aaodel ; 

SUBROUTINE  aaodel(mcyds,yard,nclas,mccls,clist ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  mcyda,mccla,nclaa 
character** mcyda  )  yard 
character** mccls )  clist<nclaa> 

C*  *♦*  ABSTRACT  *** 

CSPURPOSE  ASaigner  Outbound  tuple  DELetion  utility.  Deletea 
C  a  tuple  from  nc jodat .pro j j  if  appropriate. 

CSAUDIT  HISTORY 

C  MSCarey  03-jul-83  AUTHOR 

CfFORMAL  PARAMETERS 

Cin  mcyda  t  chara  in  yard  name 

Cin  yard  name  of  yard  nou  being  proceaaed 

Cin  nclaa  number  of  claaaea  in  thia  yard 

Cin  mccla  number  of  charactera  in  a  claaa  name 

Cin  cliat  liat  of  claaaea  in  thia  yard 

C*C0MM0N  BLOCKS 

Cin  aaoprm  outbound  parametera 

Cin  aaocra  outbound  curaora 

Cio  aatfr  tuple  buffera 

Cin  aanvld  valid  yarda  claaaea  job  typea 

Cm  fld05  field  liat  for  nc  jodat  .proj  j 

CfCALLER  aandbr 

C*METHOO 

C  Find  out  if  the  current  tuple  ia  one  of  intereat  for  thia 

C  invocation.  If  not,  return.  If  ao,  delete  it  unleaa  it  ia 

C  flagged  and  get  the  next  tuple.  If  it  ia  flagged,  then  aee 

C  if  it  ia  one  that  waa  already  proceaaed  by  aahard.  That  will 

C  be  true  if  ita  (yard  claaa  jobt  )  ia  the  aame  aa  that  of  the 

C  PREUIOUS  tupfil  record,  indicating  that  thia  tuple  ia  a  trailer 

C  in  the  ordering  aequence  but  ia  atill  of  a  type  proceaaed  by 

C  aahard  (aince  there  ia  a  tuple  in  aahard  with  the  same  key). 

C« 


ASSIGNER  ABSTRACTS 


r 


C  ASPFLD  *********************************************** 

SCONTROL  segment-ASGNO 
CSTRACE  asp  fid; 

SUBROUTINE  aspfld(yard, class, all ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

character*8  yard,class*12 
logical  all 

C*  ***  ABSTRACT  *** 

CtPURPOSE  AS3igner  Planning  Factor  LoaDer.  Reads  one  or 
C  all  job  description  tuples  for  a  given  yard-class- job  type 
c  from  ncjdat.descj  and  stores  then  in  /asjd/. 

CfAUDIT  HISTORY 

C  MSCarey  27-jun-83  AUTHOR 

CSFORMAL  PARAMETERS 

Cin  yard  name  of  yard  to  find  job  desc  for 

Cin  class  class  and  job  type  to  find  desc  for 

Cin  houmny  true  if  caller  wants  all  tuples  matching 

C  input  key,  false  if  only  first  one  needed 

C3C0MM0N  BLOCKS 

Cin  scenar  scenario  field  value  information 

Cin  asoprm  outbound  parameters 

Gout  asjd  job  description  holding  buffer 

Gout  rcrdBB  interface  buffer  for  relation  ncjdat.descj 

C3CALLER  various  assigner  outbound 

CttMETHOO 

C  Convert  the  passed  key  values  to  the  proper  form  for  08  query. 
C  Point  to  the  first  match  and  place  in  the  holding  area. 

C  Read  the  rest  of  the  matches  if  desired. 

C** 
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C  A5FFTR  ♦****+*****•****♦********♦+*****+************** 
iCuNTROL  segment *ASGNG 
C$ TRACE  aspftr; 

SUBROUTINE  aspftr(recnum  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  recnum 

C*  ***  ABSTRACT  *** 

ClruRFOSE  ASsigner  Planning  Factor  TRansfer.  Moves  a  job 
C  description  record  from  rcraOS  to  row  recnum  of  /‘asjd/ 
Cl AUDIT  HISTORY 


c 

MSCarey 

2S-jun-33  AUTHOR 

CHr GRMAL 

PARAMETERS 

un 

recnum 

record  number  (row)  to  move  data  to  in  asjd 

C4C0MM0N 

BLOCKS 

Cin 

rcrdSS 

holds  job  desc  record  extracted  from  ncjdat 

Cio 

asjd 

holds  many  job  description  records 

C1CALLER 

aspf id 

C1METH00 

C  Lots  of  assignments 

cut 

12-132 


nooiomen  noa  i  nnu  i  s 


C  ABrRED************************************ ************ 

SCuNTRGL  segment *A3GN0 

SUBROUTINE  aspred( nciash ) 

O'*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  nciash 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Spreads  out  schedule  dates  reasonably  evenly. 

CtAUDIT  HISTORY 

C  MSCarey  ll-aug-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  nciash  number  of  classes  in  record  buffer 

CSCOMMON  BLOCKS 

Cin  asoprm  assigner  outbound  parameters 

Cio  asrbuf  buffer  holding  ships/dates  to  spread 

Cin  lprnts  debug  switches 

CfCALLER  asncnv 

CSMETHOD 

C  The  work  area  here  is  /asrbuf/,  which  is  in  order  of 

C  adjust  or  spreading  date  of  the  ships  in  the  current 

C  complexity  group.  There  is  also  a  linked-list  ordering 
C  by  class. 

C 

C  Figure  out  the  first  and  last  allowable  adjdat-s,  and 

C  from  these  and  the  number  of  ships  get  the  size  of  the 

C  interval  with  which  to  spread  all  the  ships  evenly.  Do 

C  so . 

C 

C  Then  go  through  each  class,  looking  for  dates  earlier  or 
C  later  than  their  limits.  On  finding  an  earlier,  add  the 

C  minimum  number  of  days  to  bring  it  up  to  its  lower  limit,  and 
C  add  this  number  to  all  subsequent  ships  of  the  class. 

C  On  finding  one  later  than  its  limits,  group  all  ships  in  the 

C  class  with  the  same  limits  and  spread  evenly  within  those  limits, 

C  doing  nothing  to  ships  in  following  periods. 

Ctt 
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C  ASPR02************************************ ************ 
SCONTROL  segment-ASGNO 

SUBROUTINE  asprd2< nclash ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  nclash 

C*  ***  ABSTRACT  *** 

C#PURPOSE  Spreads  out  schedule  dates  reasonably  evenly. 

C  This  version  is  original,  now  is  secondary. 

CtAUDIT  HISTORY 

C  MSCarey  ll-aug-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  nclash  number  of  classes  in  record  buffer 

CttCOMMON  BLOCKS 

Cin  asoprm  assigner  outbound  parameters 

Cio  asrbuf  buffer  holding  ships/dates  to  spread 

Cin  lprnts  debug  switches 

CSCALLER  asncnv 

CfMETHOD 

C  The  uiortf  area  here  is  /asrbuf/,  which  is  in  order  of 

C  adjust  or  spreading  date  of  the  ships  in  the  current 

C  complexity  group.  There  is  also  a  linked-list  ordering 
C  by  class. 


Figure  out  the  first  and  last  allowable  adjdat-s,  and 
from  these  and  the  number  of  ships  get  the  size  of  the 
interval  with  which  to  spread  all  the  ships  evenly.  Do 


Then  go  through  each  class,  looking  for  dates  earlier  or 
later  than  their  limits.  On  finding  an  earlier,  add  the 
minimum  number  of  days  to  bring  it  up  to  its  lower  limit,  and 
add  this  number  to  all  subsequent  3hips  of  the  class. 

On  finding  one  later  than  its  limits,  group  all  ships  in  the 
class  with  the  same  limits  and  spread  evenly  within  those  limits, 
doing  nothing  to  ships  in  following  periods. 
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C  ASTUPF  *********************************************** 

SCONTROL  segment =ASGNO 
CSTRACE  asycls; 

SUBROUTINE  as tup f < mcc Is, nc lash, hi  dels, me yds , yard , t imyd, orgpos , 
1  hldnum, nclas , tupf st ,nxtupf  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  mcc Is , nc lash , me yds , nc las , nx tup f , tup f st <  nclas  ) 
integer  orgpos<  nclas  )  ,hldnum<  nclas  ) 
integer*^  timyd 

character^ mccls  )  hldcls< nci<ssh  ) ,  yard*(mcyds) 

C*  ***  ABSTRACT  *** 

CJtPURPOSE  Converts  /asrbuf/  records  to  tupfil  tuple  images. 

C  When  all  classes  in  yard  have  been  processed,  these  tuple 

C  images  will  be  used  to  update  the  data  base. 


ClAUDIT  HISTORY 

C 

MSCarey 

20- jun-83  AUTHOR 

CSFORMAL 

PARAMETERS 

Cm 

hi dels 

name  of  each  class 

Cm 

ydname 

name  of  yard  holding  these  classes 

Cm 

timyd 

time  stamp  for  this  yard;  used  to  get  asnorder 

Cm 

orgpos 

position  of  clist  i  on  assigner  list  (for  asnorder) 

C  in 

hldnum 

position  of  hldcls  i  on  clist 

Cm 

nclas 

number  of  classes  in  this  yard 

Cio 

tupf st 

pointer  to  first  tuple  image  for  class  i 

Cio 

nxtupf 

next  free  record  in  tupfil 

CSCOMMON 

BLOCKS 

Cm 

asrbuf 

holds  l-ship  1-record  structure  for  this  comp-grp 

Cio 

asjd 

job  descriptions 

Cout 

ast  f  r 

record  for  reading/wr i t ing  tupfil 

C3CALLER 

asncnv 

CtMETHOD 

C  Loop  over  the  number  of  ships  in  each  class.  Construct  a  tuple 

C  image  for  each  of  these  ships  < load  planning  factors  for  class 

C  at  the  outset).  Then  add  this  image  to  tupfil,  maintaining 

C  the  pointer  structure. 

Ctt 
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C  ASUBDL  *********************************************** 
SCONTROL  segnent*asgno 

SUBROUTINE  asubdl <  clchr , class .hull , connun,map  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  hul 1 .comnun, clchr 
integer *4  nap 
characters  clchr )  class 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Deletes  tuples  in  relations  subsidiary  to 
C  schedule  relation  < nejodat .proj j  ) .  Hardwires  only. 

Cf AUDIT  HISTORY 


c 

MSCarey 

09-aug-83  AUTHOR 

CtFORMAL 

PARAMETERS 

Cin 

clchr 

chars  in  class 

Cin 

class 

nane  of  class  to  delete 

Cin 

hull 

hull  nunber  of  ship  to  delete 

Cin 

connun 

connissioning  nunber  of  ship  to  delete 

Cin 

nap 

bit  napped  variable  indicating  which 

relat ions 

C 

to  delete  tuples  from.  Mapping  is'- 

[0  — >  153 

C 

C 

CSCOMMON 

BLOCKS 

15:ncjodol  14;ncjolbr  13-ncjoenp 
ll:ncjond  10:ncjocon 

12  ••  nc  jonr 

Cin 

scenar 

holds  current  scenario  information 

CtCALLER 

C1METH0D 

ashard. 

asodel 

C  Set  up  the  point  transfer  buffer. 

C  Parse  the  bit  nap  to  see  which  relations  to  look  in  dynamically. 

C  If  a  bit  is  on,  nake  sure  that  its  relation  is  open. 

C  Point  towards  the  target  record,  then  delete  it. 

C  Look  for  trailers  with  the  sane  key  value. 

C## 
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C  ASYCLS  ************************************************** 

SCONTROL  segment*ASGNO 
CSTRACE  asycls; 

SUBROUTINE  asycl9< iyard, lstchr,lstlen,clist ,  cptr,orgpos,nclas  ) 
C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  iyard, lstchr , Istlen 
integer  nc 1 as, cptr( Istlen), or gpos< Istlen) 
character^ lstchr  )  clist< Istlen > 

C*  ***  ABSTRACT  *** 

CtPURPOSE  ASigner  Yard  Classes.  Constructs  a  sorted  list 
C  of  the  non-repair  job  classes  in  yard  iyard. 

CtAUDIT  HISTORY 

C  MSCarey  19-jun-83  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  iyard  index  of  the  yard  in  /casgn/ 

Cin  lstchr  max  length  of  any  class  name 

Cm  Istlen  max  number  of  classes  to  be  returned 

Cout  clist  the  sorted  list  of  classes  (job  type  char  attached) 

Cout  cptr  bufasn  record  pointers  for  each  class 

Cout  orgpos  original  position  in  display  order  of  clist(i) 

Cout  nclas  number  of  classes  returned 

CtCOMMON  BLOCKS 

Cio  asgn  bufasn  and  editing-phase  blocks 

CfCALLER  asncnv 

C#METH0D 

C  Do  gets  from  bufasn  until  no  more  in  iyard.  Check  for 
C  repair  job  types  and  ignore  them.  Retain  the  pointer 
C  for  each  class  gotten.  Sort  the  final  list  and  pointers 
C  U 
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C  CKPF  **#***♦#*♦**#*#*#***#********#*******•»***«******* 

SCONTROL  segment»asgnd 

SUBROUTINE  ckpf  <  els job , yard, holdup, ok  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

character  clsjob*12,yard*8 
logical  holdup, ok 

C*  ***  ABSTRACT  *«♦ 

C4PURP0SE  Checks  to  make  sure  there  are  planning  factors  for 
C  new  class-jobs  entered  by  user. 

CfAUOIT  HISTORY 

C  MSCarey  29-mar — 84  AUTHOR 

CtFORMAL  PARAMETERS 

Cin  clsjob  name  of  ship  class  as  entered,  with  job  type  char 

Cin  yard  name  of  yard  job  assigned  to 

Cin  holdup  true  if  should  stop  execution  to  ensure  msg  seen 

Cout  ok  true  if  job  desc  found 

CfCOMMON  BLOCKS 

Cin  asnvld  validity  info 

C4CALLER  asnadd 

CtMETHOO 

C  Decode  clsjob  into  data  base  key  values  and  do  a  point 
C  on  the  job  description  cursor;  success  cf  point  means  ok. 
CfLOCAL  VARIABLES 

C  jehar  job  type,  single-character  representat ion 

C  target  dummy  data  destination 

C## 
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C  CMNGET******cmnsav******scnget ************************ 
SCONTROL  segment*asgni ,check*3 
SUBROUTINE  cmnget 
CHARACTER* 16  sen 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Get-Save  /casgn/  &  /nasgn/  in  asgn  include  -  unit  uasne 
CSAUQIT  HISTORY 

C  Densmore  04-Apr-83  AUTHOR 

CfTYPE  Manual  Assigner  Utility 

CfFORMAL  PARAMETERS 

Cout  sen  scenario  name  in  disk  buffer 

CSCOMMON  BLOCKS 

Cin/out  asgn  assigner  data  block 

CSCALLER  asnini,  asncmd 

C#METH00 

C  Simply  uses  variable  format  read/write 

C3L0CAL  VARIABLES 

C#t 
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C  DBASIS*********************** ************************* 
SCONTROL  segment*asgni ,check»3 

FUNCTION  dbasis( disbas,node ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

PARAMETER  mdb-8 
CHARACTER  dbasis*mdb 
CHARACTER  disbas*mdb 
CHARACTER  riode*6 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Returns  appropriate  date  fieldname  for  the  job 
C  relations  given  the  menu  display  basis  string  and 

C  a  character  mode  describing  the  job  relation 

CtAUDIT  HISTORY 

C  Densmore  23-Jun-83  AUTHOR 

CfTYPE  assignor  routine 

CSFORMAL  PARAMETERS 


Cin 

C 

C 

C 

Cin 

C 

CtCALLER 

CSMETHOD 

C«* 


disbas  display  basis,  from  menu  system;  describes 

the  date  to  be  used  in  determining  the  period 
to  which  a  job  (tuple)  belongs;  one  of; 

’ AWARD’ , ’START* , ’KEEL* , ’LAUNCH’ , ’DELIUERY  ’ 
mode  type  of  job  relation;  one  of; 

’NEUCON’ , ’REPAIR’ 
asntpx ,asntpi 

trivial;  if  mdb  is  changed  from  8  note  required  code  changes 
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C  GETASN******putasn**** ********************* *********** 

$CONTROL  segment*asgnd, check-3 
SUBROUTINE  getasn<ptr) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  ptr 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Gets/Puts  assignment  record  into  position  ptr 
CtAUDIT  HISTORY 

C  Densmore  17-Mai — 83  AUTHOR 

CfTYPE  manual  assigner  routine 

CSFORMAL  PARAMETERS 

Cin  ptr  assignment  record  position 

CfCOMMON  BLOCKS 

Cin/out  asgn  assigner  data  block 

CtCALLER  various  ASN  routines 

Cl# 
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C  INICLS***********  if***************************  ♦****♦*♦* 
SCONTROL  segment*asgnd,check*3 

SUBROUTINE  inicls< class .order , loc  ) 

C*  ««*  FORMAL  PARAMETER  DECLARATIONS  *** 

C  ***  CHARACTER*mccls  class 
INTEGER*4  order 
INTEGER  loc 

C*  #*•  ABSTRACT  *** 

CtPURPOSE  Sets  up  suns  and  increments  for  a  new  class  buffer 
CSAUDIT  HISTORY 

C  Densmore  10-May-83  AUTHOR 

C3TYPE  assigner  routine 

CSFORMAL  PARAMETERS 

Cin  class  class  name  for  new  buffer 

Cin  order  ship  order  <asn  order) 

Cin  loc  yard  location  in  which  new  buffer  resides 

CtCOMMON  BLOCKS 

Cin  asgn  assigner  data  block 

CJCALLER  asnadd.asnins 

CtMETHOD 

C  straightforward 
C## 
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C  INI YRO*********** **********  ********* . ******** 

SCONTROL  segment»asgnd,check.*3 

SUBROUTINE  iniyrd< loc , yardnm  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS 

C  ***  CHARACTER*mcyds  yardnm 
INTEGER  loc 

C*  ***  ABSTRACT 

CfPURPOSE  Finishes  the  process  of  adding  a  yard 
CfAUDIT  HISTORY 

C  Oensmore  10-May-83  AUTHOR 

CtTYPE  assigner  routine 

C4F0RMAL  PARAMETERS 

Cin  loc  yard  index 

Cin  yardnm  yard  name 

CtCOMMON  BLOCKS 

Cout  asgn  assigner  data  block 

CfCALLER  newyrd 

CJtMETkiOD 

C  straight  forward 
Ctt 


•  •* 


ft  *  * 
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c  LQCYRO*** ************************************ ********* 

SCONTROL  segment“asgnd,check“3 

INTEGER  FUNCTION  locyrd< yard, names , len  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  Ien 

C  ***  CHARACTER*12  yard, names( len )  —  12**mcyds  /asgn/ 

C*  ***  ABSTRACT  *** 

CfPURPOSE  Locates  yard  in  names  array  via  binary  search 
CtAUDIT  HISTORY 

C  Densmore  17-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

CtFORMAL  PARAMETERS 

Cm  yard  yard  name  to  locate 

Cin  names  sorted  array  of  yard  names  to  search 

Cm  len  length  of  names 

CfCOMMON  BLOCKS 

Cm/out  asgn  assigner  data  block 

CtCALLER  asnadd 

CtMETHOO 

C  Binary  search.  If  the  yard  is  not  found,  locyrd  is  returned 
C  such  that  if  the  yard  were  inserted  it  would  become  number 
C  locyrd  and  items  locyrd  on  would  be  right-shifted.  N0TE=  locyrd 
C  assumes  the  dimension  of  NAMES  to  be  at  least  LEN+1  on  failure. 
Cf LOCAL  VARIABLES 

C  left,right  —  search  positions 

C  locyrd,  the  returned  value,  is  also  used  as  the  mid  value 

C*# 
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C  NEUYRO** ******** *******  ****************  *************** 

SCONTROL  segment*asgnd,check»3 

SUBROUTINE  newyrd< loc, defind  ) 

C»  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  loc 
LOGICAL  defind 

C*  ***  ABSTRACT  *** 

CtPURPOSE  adds  new  yard 
Ct AUDIT  HISTORY 

C  Densmore  16-Mat — B3  AUTHOR 

CtTYPE  manual  assigner  routine 

CSFORMAL  PARAMETERS 

ClocType  loc  yard  index;  returned  0  if  abort  is  desired 

Cin  defind  (IF  defind  THEN  locType*" m/out “  ELSE  locType*" out “ ) 

CtCOMMON  BLOCKS 

Cin/out  asgn  assigner  data 

Cin  scrchr  screen  characters 

CtCALLER  asnadd 

CtMETHOD 

C  Checks  for  input  and  system  errors;  obtains  yard  name  input; 

C  Right  shifts  appropriate  arrays  to  keep  these  arrays  sorted 
C  by  yard  name. 

C1LQCAL  UARIABLES 

C  yardnm  local  yard  name  input 

C  lenr  length  of  right  shift 

C  msg  character  buffer  for  asnpro  message 

C  leny  length  of  yard  name 

C*« 
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C  NXTCLS***************************** ******************* 

SCONTROL  segment*asgni ,check*3 

SUBROUTINE  nxtcls<  cursor ,fields,vldydi,firstd,lastd, 

1  tupmax , tuple , len ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  cursor , vldydi , len 
CHARACTER  fields*255 
INTEGER  tupmax< len  ) , tuple( len  ) 

INTEGER*4  firstd.lastd 

C*  ***  ABSTRACT  *** 

CJtPURPOSE  Grabs  the  next  tuple  from  the  relation  given  by  cursor 
Cf AUDIT  HISTORY 

C  Densmore  22-Jun-83  AUTHOR 

CfTYPE  assigner  inbound  routine 

CtFORMAL  PARAMETERS 

Cin  cursor  cursor  index  to  appropriate  relation 

Cin  fields  DTS  string  giving  names  of  fields  to  be  returned 

Cin/out  vldydi  index  to  the  list  of  valid  yards  in  /asnvld/ 

Cin  firstd  RELATE  representat ion  of  first  date  of  first  period 

Cin  lastd  RELATE  rep  of  last  date  of  last  period 

Cin  tupmax  maximum  value  of  a  tuple. . .used  when  vldydi  max 

C  value  is  exceeded  to  set  ’tuple',  so  that  the 

C  hash  sorting  done  by  the  caller  still  works 

Cout  tuple  returned  tuple  value 

Cin  len  length  of  tuple. . .better  be  .GE.  than  fields  implies 

CSCOMMON  BLOCKS 

Cin  asnvld  assigner  valid  lists 

CICALLER  asntpx , asntpxSasntp i 
CtMETHOD 

C  Nxtcls  is  divided  into  two  parts:  a  yard  search  section 

C  and  a  class  search  section.  The  routine  performs  an  mitial- 
C  ization  part  first  if  vldydi  is  zero  on  entry.  Note  that 
C  NeXT-Tuple  operations  are  attempted  before  CALc  operations  are 
C  performed  during  searches  for  a  next  valid  yard.  Next  ops  are 
C  much  less  expensive  than  are  Calc  ops. 

CtLQCAL  VARIABLES 

C  eot  True  when  no  more  tuples  in  that  relation 

C  or  when  a  calc  operation  failed 

C  yard, class , series ,  -  tuple  elements  unloaded 

C  scnaro, type, date, order  / 

C  clcomp  *mcvcls  version  of  class,  for  comparison  purposes 

C#t 
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C  NXTCL2**-»****-»***********  ♦******♦***♦*♦**#**•»  ********* 
SCONTROL  segment=asgni ,check=3 

SUBROUTINE  nxtclz( rout  in, where, tup le, string, Is, eot  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  Is , tuple( 1  ) 

CHARACTER  rout in*6 , where*255 , str ing*< Is  ) 

LOGICAL  eot 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Prints  diagnostics  for  NXTCLS 
CtAUDIT  HISTORY 

C  Densmore  04--Jul-83  AUTHOR 

C4TYPE  assigner  inbound  diagnostic  routine 
CtFORMAL  PARAMETERS 
Cm  routin  *6  caller  name 

Cin  where  DTS  description  of  where  the  call  is  being  made 

Cm  tuple  integer  version  of  tuple  read,  if  any 

Cin  string  calc  string,  or  whatever  else,  of  length  Is 

Cin  Is  length  of  string 

Cin  eot  True  if  no  tuple  was  read  because  end-of-... 

CiCOMMON  BLOCKS 

Cin  Iprnts  diagnostic  common  block 

CtCALLER  nxtcls 
C  U 
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C  REMCLS*******  ***************************  **■»♦•*****  ***** 
SCONTROL  segment=asgnd,check“3 

SUBROUTINE  remcls< loc, before, item, after  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  ♦** 

INTEGER  loc, before, item, after 

C*  ***  ABSTRACT  *** 


C&PURP0SE  Performs  decrements  and  repoxntering  for  removal  of  a 
C*AUDIT  HISTORY 

C  Densmore  0G-Jun-83  AUTHOR 

CtTYPE  assigner  routine 

CttFORMAL  PARAMETERS 


Cin 

Cm 

Cin 

Cin 


loc 

before 

item 

after 


yard  index 

pointer  to  class  before  the  one  to  be  deleted 
pointer  to  the  one  scheduled  for  deletion 
pointer  to  the  next  one  after  item 


CSCOMMQN  BLOCKS 


Cin/out  asgn  assigner  data  block 

C#CALLER  asnval .asndel 

CSMETHOD 

C  Decrements  asntot , numasn , sumper , grdtot .  Re-route  pointers. 
C## 


class 
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C  REMYRD*** ************************************ ********* 

$CONTRQL  segment*asgnd,check=3 
SUBROUTINE  remyrdUoc) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTEGER  loc 

C*  ***  ABSTRACT  *** 

CltPURPOSE  Removes  an  entire  yard 
CSAUOIT  HISTORY 

C  Densmore  iS-Mar-83  AUTHOR 

CtTYPE  manual  assigner  routine 

C3F0RMAL  PARAMETERS 

Cm  loc  yard  index  location 

CtCOMMON  BLOCKS 

Cm  scrchr  screen  characters 

Cin/out  asgn  assigner  data 

CJtCALLER  asndel 

C3METH00 

C  Prompts  to  make  sure  if  Prompt* . True . ;  then  runs  down  the 
C  assignment  buffer  list  and  decrements  all  summary  arrays. 

C  The  list  is  then  CONSed  to  the  free  chain,  and  all  approp- 
C  riate  arrays  are  left-shifted, 

C4L0CAL  UARIABLES 

C  msg  asnpro  message  buffer 

C  verify  input  containing  “ ' “  or 

C  item  assignments  buffer  pointer 

C  lenl  length  of  left  shift 

C** 
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C  5USTAT«*****res  tat  #*#**#****■»*****#**#♦***#■»**#*♦***** 
SCONTROL  segment^asgni ,check»3 
SUBROUTINE  svstat 

C*  #**  ABSTRACT  ♦** 

C#PURPOSE  save/restore  screen  status  for  line  printer  outputs 
CtAUDIT  HISTORY 

C  Oensnore  ll-May-83  AUTHOR 

CftTYPE  assigner  utility 

CttCALLER  asnlpr 
Ct# 
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C  TMSTMP  *********************************************** 
SCONTROL  segnent“A5GN0 

INTEGER**  FUNCTION  tnsinp<idun> 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

integer  idun 

C*  ***  ABSTRACT  *** 

CSPURPOSE  Returns  current  tine  in  seconds  since  1/1/1983 
Ct AUDIT  HISTORY 

C  MSCarey  03-jul-83  AUTHOR 

C ^FORMAL  PARAMETERS 
Cin  idum  dunny 

CKCOMMON  BLOCKS 

Cm  tddate  date  nanipulation  functions 

CtCALLER  asncnv 

CtMETHOD 

C  Get  the  current  date  and  convert  it  to  seconds;  then  get 

C  the  tine  of  day  and  add  it  on. 

Ctt 
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C  TUPFRD  ****♦******+*********************************** 
SCONTROL  segment”ASGNO 

SUBROUTINE  tupfrd< recnum, iclas,t up fst,nc las, eofil, 

1  lstyrd, lstcls , 1st  job  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  **♦ 

integer  recnum ,iclas,nclas,tupfst<nclas) 
logical  eofil 

character  lstyrd*8,lstcl3*10,lstjob*8 


c* 

***  ABSTRACT  *** 

CfPURPOSE  Read 
CtAUOIT  HISTORY 

a  record  from  direct  access  tuple  holding  file. 

C 

MSCarey 

01-jul-83  AUTHOR 

CfFORMAL 

PARAMETERS 

Cio 

recnum 

in;  record  to  read;  out =  next  record 

cio 

iclas 

location  on  clist  of  current  class-job  type 

Cin 

tup  fat 

pointers  to  first  tupfil  record  each  class-job 

Cin 

nclas 

number  of  class-job  types  this  yard 

Cio 

eofil 

true  if  no  more  tupfil  records 

Cout 

lstyrd 

yard  for  tupfil  record  m  memory  on  call 

Cout 

lstcls 

class  " 

Cout 

CSCOMMON 

1st  job 
BLOCKS 

job  type  “ 

Cm 

asoprm 

outbound  parameters 

Cout 

CtCALLER 

CtMETHOD 

ast  fr 
asdbr 

tuple/record  holding  records 

C  Read  and  reset  recnum 
Ct# 
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C  UALCLS************************************************ 
SCONTROL  segment^asgnd, check*3 

LOGICAL  FUNCTION  valcls< class  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C  ***  CHARACTER*mccls  class 

C*  ♦**  ABSTRACT  *** 

CfPURPOSE  Determine  if  input  class  is  allowed  in  this  scenario 
Cf AUDIT  HISTORY 

C  Densmore  02-Jun-83  AUTHOR 

CtTYPE  assigner  routine 

CSFORMAL  PARAMETERS 

Cin  class  input  class  name. . ,character*mccls 

CJCOMMON  BLOCKS 

Cin  asgn  assigner  data  block 

CtCALLER  asnadd 

CtMETHOD 

C  Matches  against  legal  list;  if  match  then  verifies  validity 
C#f 
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C  UAL.YRQ***,********'********  +  ,*******-*#**-t-**#*#*-##**#***** 
SCONTROL  segment*asgnd,check*3 

L06ICAL  FUNCTION  valyrd<yard) 

c*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

C  *•»*  CHARACTER *mcyds  yard 

C*  ***  ABSTRACT  *** 

C#PURPOSE  Determines  if  input  yard  is  valid  in  this  scenario 
CtAUDIT  HISTORY 

C  Densmore  02-Jun-83  AUTHOR 

CtTYPE  assigner  routine 

C3F0RMAL  PARAMETERS 

Cin  yard  input  yard 

CtCOMMON  BLOCKS 

Cin  asgn  assigner  data  block 

CtCALLER  neuiyrd 

CtMETHOD 

C  Verifies  that  input  yard  is  on  the  valid  yards  list 
C« 
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C  ULOLST*********** **************************  *********** 

SCONTROL  aegment*asgni , check*3 
SUBROUTINE  vldlst 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Initializes  valid  lists  for  assigner  ( classes .yards ) 
Cf AUDIT  HISTORY 

C  Densmore  10-Jun-83  AUTHOR 

CtTYPE  assigner  routine 

C1C0MM0N  BLOCKS 

Cin  scenar  current  scenario 

Cout  asnvld  valid  lists 

CSCALLER  asnini 

CSMETHOD 

C  simply  uses  liston  for  each  list  being  initialized 
C** 
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C  ULDLSZ***  ♦**■**•»*♦*****•*  *•»***  **#**#******##****•»■»*#***# 
SCONTROL  segment»asgni ,check»3 
SUBROUTINE  vldlaz 

C*  **#  ABSTRACT  *** 

CfPURPOSE  Prints  diagnostic  information  for  vidlst  on  /asnvld/ 
Cf AUDIT  HISTORY 

C  Densmore  05-Jul-83  AUTHOR 

CtTYPE  assigner  inbound  diagnostic 

CJtCOMMON  BLOCKS 

Cin  asnvld  assigner  valid  arrays 

CtCALLER  vidlst 

CttMETHOO 

C  just  a  set  of  prints  and  trecol  calls 
C## 
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C  YCASN********* *«* *************************** ********** 
$CONTROL  segment*asgni , check*3 
SUBROUTINE  ycaan 
LOGICAL  flag 

C*  ***  ABSTRACT  *** 

CtPURPOSE  Implements  Control-Y  in  Refresh 
CtAUDIT  HISTORY 

C  Densmore  06-Apr-83  AUTHOR 

CtTYPE  Assigner  utility 

CtMETHOO 

C  To  use  this  routine  with  a  specified  module,  one  relies  on  an 
C  unspecified  compiler  specific  mechanism  to  call  YCASN  on  some 
C  user  requested  interrupt.  For  example,  on  the  HP,  the  exec- 

C  ution  of  the  Fortran  statement  “  ON  CONTROLY  CALL  YCASN" 

C  performed  this  function.  This  routine  assumes  that  following 

C  completion  of  the  interrupt  process  <ie.  the  call  to  YCASN) 

C  control  returns  to  where  it  was  before  the  interrupt.  Thus, 

C  to  discover  that  the  interrupt  occurred,  entry  YCASNR  may  be 
C  called;  it  returns  .TRUE,  if  so,  and  .FALSE,  otherwise,  while 
C  resetting  the  internal  flag  (save).  YCASNI  may  be  called  to 
C  initialize  this  process.  Note  that  the  ON  statement  need  not 

C  be  reset,  since  calling  YCASN  is  harmless,  and  only  effective 
C  if  YCASNR  i3  being  called  in  a  loop  or  something  like  that. 
Cf# 
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c  YRDCPY********** ************  ******  ******************** 

SCONTROL  segment»asgnd,check“3 

SUBROUTINE  yrdcpy<  from, loc , de f ind, succes  ) 

C*  ***  FORMAL  PARAMETER  DECLARATIONS  *** 

INTESER  from, loc 
LOGICAL  defind, succes 

C*  ***  ABSTRACT  *** 

CfcPURPOSE  Implements  yard  copy 
C#AU0IT  HISTORY 

C  Densmore  08-Jul-83  AUTHOR 

CKTYPE  assigner  routine 

CtFORMAL  PARAMETERS 

Cin  from  from  yard 

Cin  loc  to  yard 

Cin  defind  .TRUE,  if  loc  is  defined 

Cout  succes  true  if  successful 

C*COMMON  BLOCKS 

Cin/out  asgn  assigner  data  block 

CtCALLER  asncpy 

CfMETHOD 

C  This  copy-yard  part  does  the  customary  checks  and  then  adds 

C  the  new  yard  via  a  newyrd  call.  Then  it  is  assured  that  enough 
C  class  buffers  are  actually  allocated  on  the  free  chain  to  permit 
C  using  it  without  changing  any  of  the  pointers  within  it.  Finally, 
C  the  appropriate  data  is  placed  in  each  class  buffer  by  looping 


C  over 

the  from 

buffers . 

CSLGCAL 

VARIABLES 

C 

ochain 

pointer  to  current  part  of  old  yard 

class  chain 

C 

nchain 

pointer  for  new  yard  class  chain 

C 

from 

old  or  from  yard  location 

C 

loc 

new  or  to  yard  location 

C 

new 

used  as  a  do  index 

C 

1  tern 

pointer  to  current  buffer 

c 

end 

pointer  to  last  buffer  in  allocated 

chain 

Cff 
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APPENDIX  A 


CROSS  REFERENCE  FROM  AUTOMATED  DATA  SYSTEMS  DOCUMENTATION 
STANDARDS  CONTENTS  TO  ALIAS  GUIDES  CONTENTS 

A.O  PURPOSE  OF  THE  APPENDIX 

The  set  of  manuals  which  form  the  documentation  for  ALIAS 
do  not  conform  strictly  to  the  DoD  7935. 1-S  documentation  stan¬ 
dard.  They  contain  all  the  information  mandated  by  the  standard 
(with  the  exception  of  Functional  Description,  Test  Plan,  and 
Test  Report)  and  more,  but  are  organized  differently.  The  organ¬ 
ization  of  the  standard  is  not  well  suited  to  ALIAS,  and  would 
have  resulted  in  much  less  useful  documentation. 

This  Appendix  lists  sections  in  the  ALIAS  Guides  which 
contain  the  information  mandated  in  each  section  of  the  standard. 
It  is  organized  according  to  the  tables  of  contents  for  the 
standard  manuals,  with  references  to  one  or  more  sections  in  the 
documentation  as  written.  A  reader  wishing  to  have  information 
presented  in  the  order  given  by  the  standard  tables  of  contents 
may  detach  this  Appendix  and  use  it  to  order  his  reading  of  the 
documentation. 

In  a  few  cases,  sections  mandated  by  the  standard  were  not 
relevant  to  ALIAS.  Comments  regarding  this  are  included  in  this 
Appendix. 

In  order  to  conserve  space,  references  to  the  various 
guides  are  made  according  to  the  following  scheme:  a  section  in  a 
particular  guide  is  designated  as  G-#  [.#.#...] ,  where  G  repre¬ 
sents  the  code  for  the  guide  and  #.#....  is  the  actual  section 
number  within  it.  Codes  for  the  Guides  are: 

U:  Alias  User's  Guide 

P:  Alias  Guide  to  System  Maintenance  and  Expansion 

D:  Alias  Data  Base  Reference  Guide 

X:  Any  ALIAS  Guide 
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A. 1  SYSTEM/SUBSYSTEM  SPECIFICATION 


1.0  GENERAL 

1.1  Purpose  of  the  System/Subsystem  Specification 
see  mainly  P-1.1 

1.2  Project  References 

see  P-1.1.3,  P-1.2,  P-1.3 

1.3  Terms  and  Abbreviations 
see  U-2,  P-2 

2.0  SUMMARY  OF  REQUIREMENTS 

2.1  System/ Subsystem  Description 
see  U-1.3,  P-1.2,  P-1.3 

2.2  System/Subsystem  Functions 

see  P-1.2,  P-1.3,  P-8,  P-11  and  onward 

2.2.1  Accuracy  and  Validity 
no  reference 

All  ALIAS  calculations  must  be  carried  out  with 
a  normal  degree  of  accuracy;  that  is,  the 
nature  of  the  problems  are  not  such  that 
extraordinary  mathematical  precision  is 
required,  as  it  sometimes  is  for  scientific 
problems. 

2.2.2  Timing 

see  P-2.3.11,  P-1.3.2.7 

In  general,  response  time  should  be  minimized, 
and  for  functions  requiring  a  great  deal  of 
time,  off-line  execution  options  should  be 
available. 

2.3  Flexibility 

see  P-1.3,  P-1.4,  P-2,  P-6,  P-8,  P-9.1 

3.0  ENVIRONMENT 
see  P-6 

3.1  Equipment  Environment 
see  P-4 

3.2  Support  Software  Environment 
see  P-4,  P-5 
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3.3  Interfaces 

see  P-1.3.2.5,  P-2.3.8,  P-2.3.9,  P-2.2.5,  P-2.3.2, 
P-8.2.5,  P-8.3.5,  P-8.4.5,  P-9,  P-10,  P-11  and  onward 

3.4  Security  and  Privacy 

see  P-7,  P-8.3,  P-8.4,  P-11  and  onward 

3.5  Controls 
see  P-7,  P-8 

DESIGN  DETAILS 

4.1  General  Operating  Procedures 
see  P-1.3,  U-1.3,  0-4,  U-5 

4.2  System  Logical  Flow 

see  P-1.3,  P-3.2,  P-8.1,  P-11  and  onward 

4.3  System  Data 

see  U-5,  P-3.2,  P-8.2.4  and  onward 

4.4  Program  Descriptions 

see  P-8,  P-10,  P-11  and  onward 


GENERAL 

1.1  Purpose  of  the  Program  Specification 
see  P-1.1,  P-8,  P-11  and  onward 

1.2  Project  References 

see  P-1.1.3,  P-1.2,  P-1.3 

1.3  Terms  and  Abbreviations 
see  U-2,  P-2 


SUMMARY  OF  REQUIREMENTS 

see  P-1.2,  P-2,  P-8.2.1,  P-8.3.1,  P-8.4.1,  P-11  and  onward 


General  system  requirements  and  standards  are  covered  in 
the  early  sections  of  the  Maintenance  Guide,  while  specifics  for 
each  system  module  are  covered  in  Section  8  and  Sections  11-12. 
The  remarks  on  accuracy  and  validity  made  above  (A. 2-2. 2.1) 
apply. 
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3.0  ENVIRONMENT 
see  P-6 

3.1  Equipment  Environment 
see  P-4 

3.2  Support  Software  Environment 
see  P-4 ,  P-5 

3.3  Interfaces 

see  P-1.3.2.5,  P-2.3.8,  P-2.3.9,  P-2.2.5,  P-2.3.2, 
P-8,  P-9,  P-10,  P-11  and  onward 

3.4  Security  and  Privacy 

see  P-7,  P-8.3,  P-8.4,  P-11  and  onward 

3.5  Controls 
see  P-7 

4.0  DESIGN  DETAILS 

see  P-8,  P-11  and  onward 


A. 3  DATA  BASE  SPECIFICATIONS 
1.0  GENERAL 

1.1  Purpose  of  the  Data  Base  Specification 
see  D-l.l 

1.2  Project  References 

see  P-1.1.3,  P-1.2,  P-1.3,  1-1 

1.3  Terms  and  Abbreviations 
see  U-2 ,  P-2 

2.0  DATA  BASE  IDENTIFICATION  AND  DESCRIPTION 

2.1  Data  Base  Identification 
see  D-1.4 


2.1.1  System  Using  the  Data  Base 
see  D-1.3 

2.1.2  Effective  Dates 
no  reference 

The  ALIAS  data  base  may  be  used  with  the  ALIAS 
system  for  as  long  as  the  system  is  in 
existence.  The  data  base  is  expected  to  expand 
and  change  continuously. 
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2.1.3  Storage  Requirements 
see  D-2 

2.1.4  Physical  Description  of  Data  Base  Files 
see  D-2 

2.2  Labeling/Tagging  Conventions 
see  D-2 

2.3  Organization  of  the  Data  Base 
see  D-2 ,  D-5 

2.4  Special  Instructions 
see  D-3 ,  D-4,  D-5,  D-6 

2.5  Support  Programs  Available  for  Handling  the  Data  Base 
see  D-4,  D-6 

DATA  DEFINITIONS 

3.1  Data  Files 
see  D-2 

3.2  Tables 

same  as  files 

3.3  Items 
see  D-2 

3.4  Records  and  Entries 
not  applicable 

INTEGRATED  DATA  BASE 
See  D-1.4,  D-2 .0,  D-5,  D-6 


USERS  MANUAL 
GENERAL 

1.1  Purpose  of  the  Users  Manual 
see  mainly  U-l.l 

1.2  Project  References 

see  P-1.1.3,  P-1.2,  P-1.3 

1.3  Terms  and  Abbreviations 
see  U-2 ,  P-2 


1.4  Security  and  Privacy 
see  U-7 


2.0  SYSTEM  SUMMARY 


2.1 

System  Application 
see  U-1.2,  U-1.3,  U-2.0 

2.2 

System  Operation 
see  U 

2.3 

System  Configuration 
see  U-4 

2.4 

System  Organization 
see  U-1.2,  U-1.3,  U-5 

2.5 

Performance 

see  U-1.2,  U-1.3,  U-4,  U-5,  U-7 

and  onward 

2.6 

Data  Base 
see  U-6 

2.7 

General  Description  of  Inputs, 
Outputs 

see  U-1.3,  U-5,  U-7  and  onward 

Processing,  and 

STAFF 

FUNCTIONS  RELATED  TO  TECHNICAL 

OPERATIONS 

3.1 

Initiation  Procedures 
see  U-1.3,  U-1.4,  U-3,  U-4 

3.2 

Staff  Input  Requirements 
see  U-1.4,  U-3  and  onward 

3.3 

Output  Requirements 
see  U,  P-8  and  onward 

FILE  QUERY  PROCEDURES 

4.1 

System  Query  Capabilities 

see  U-1.4,  U-6,  U-7,  RELATE  manuals 

4.2 

Data  Base  Format 
see  D-2 

4.3 

Query  Preparation 
see  U-7,  RELATE  manuals 

4.4 

Control  Instructions 
not  relevant 

ywT 


Not  provided  for;  structure  of  system  does  not  call  for 
separate  class  of  operators.  Program  inventories,  file  inven¬ 
tories,  processing  and  security  descriptions  may  be  found  in  the 
User's  and  Maintenance  Guides. 


GENERAL 

1.1  Purpose  of  the  Program  Maintenance  Manual 
see  mainly  P-1.1 

1.2  Project  References 

see  P-1.1.3,  P-1.2,  P-1.3,  1-1 

1.3  Terms  and  Abbreviations 
see  U-2,  P-2 

SYSTEM  DESCRIPTION 

2.1  System  Application 
see  P-1.2,  P-1.3 

2.2  Security  and  Privacy 
see  P-7 

2.3  Program  Description 

see  P-8,  P-3,  P-6,  P-10,  P-11  and  onward 

ENVIRONMENT 

3.1  Equipment  Environment 
see  P-4 

3.2  Support  Software 
see  P-5 

3.3  Data  Base 
see  D 


PROGRAM  MAINTENANCE  PROCEDURES 

4.1  Conventions 
see  P-2,  P-6 


Verification  Procedures 
see  P-9 

Error  Conditions 
see  0-B 

Special  Maintenance  Procedures 
see  P-6 

Special  Maintenance  Programs 
see  P-6 

Listings 

see  P-Appendix  C 


APPENDIX  B 


SUMMARY  OF  ALIAS  HOST  SYSTEM  DEPENDENCIES 


This  Appendix  is  meant  as  an  introduction  to  the  tasks 
which  would  need  to  be  completed  in  order  to  convert  ALIAS  to  run 
on  a  host  computer  other  than  an  HP-3000.  ALIAS  is  fundamentally 
a  very  host-dependent  system,  primarily  because  of  its  dependence 
on  RELATE  and  BUILDER,  but  measures  were  taken  during  development 
to  isolate  dependency  in  order  to  minimize  conversion  costs. 

This  Appendix  should  not  be  construed  as  a  complete  listing 
of  conversion  requirements.  Such  a  listing  inevitably  depends  on 
the  hardware  and  software  of  the  target  host  as  well  as  on  the 
existing  software. 

The  major  host  dependencies  fall  into  four  categories: 
RELATE,  BUILDER,  HP  FORTRAN,  and  MPE  dependencies. 

B.l  RELATE  DEPENDENCE 

RELATE  is  the  DBMS  used  to  implement  and  access  the  ALIAS 
data  base.  A  move  to  a  new  system  will  involve  creation  of  the 
ALIAS  data  base  structure  using  the  DBMS  on  the  new  host,  an 
unload  of  the  data  contained  in  RELATE  files  on  the  HP  3000,  and 
a  reload  on  the  new  host. 

Although  tedious  and  time  consuming,  these  tasks  are 
unlikely  to  present  serious  technical  challenges  or  suprises. 
Converting  ALIAS  FORTRAN  programs  to  access  the  new  data  base 
programmatically  may  be  another  matter.  Such  programmatic  access 
must  go  through  the  equivalent  of  the  RELATE  Host  Language  Inter¬ 
face.  Should  the  new  DBMS  fail  to  provide  a  cursor-oriented. 


routine-call  oriented  interface,  major  revision  of  all  ALIAS 
FORTRAN  code  would  be  required. 

Given  a  cursor-oriented,  general-purpose  routine  call 
interface  structurally  similar  to  the  RELATE  HLI  (really  the  most 
common  interface  method  among  DBMSs)  there  may  not  be  much 
problem.  Although  calling  syntax  and  data  structures  may  differ, 
(almost)  all  ALIAS  programmatic  DBMS  usage  is  buffered  through 
the  DBIF,  a  library  of  interface  routines  written  specifically  to 
support  future  conversions.  These  are  general-purpose  routines 
whose  formal  parameters  could  remain  unchanged  while  their  guts 
were  rewritten  to  work  with  the  new  DBMS.  Should  this  be  the 
case  conversion  changes  would  be  isolated  in  perhaps  two  dozen 
routines  and  a  few  thousand  lines  of  code. 

There  are  two  reasons  why  things  might  not  be  so  rosy  (in 
addition  to  the  disaster  of  a  non-cursor-oriented  new  DBMS) . 
First,  RELATE  requires  that  data  source  and  target  buffers  be 
word-aligned  arrays  or  common  blocks  in  which  numeric  and 
character  variables  are  mixed  according  to  data  relation  field 
data  type.  Many  FORTRAN  '77  compilers  will  not  permit  such 
constructs,  making  it  possible  that  a  different  buffering  method 
will  be  required.  Since  these  buffers  are  just  passed  through 
DBIF  calls,  any  changes  to  the  buffering  scheme  would  affect  all 
ALIAS  FORTRAN  routines  which  use  RELATE. 

Second,  most  ALIAS  modules  are  heavily  dependent  on  the 
existence  of  RELATE* s  record-point  query  capability,  as  imple¬ 
mented  in  the  rtpcal  DBIF  routine,  and  its  particular  idiosyn- 
cracies.  This  dependency  was  necessitated  by  the  large  memory 
usage  and  execution  time  penalties  imposed  by  trying  to  make 
queries  using  selections.  Should  the  new  DBMS  fail  to  have  a 
point  capability,  the  design  logic  of  many  ALIAS  query  and  update 
routines  would  have  to  be  substantially  changed.  This  might  be 
desirable  in  any  case,  though,  in  order  to  take  advantage  of  the 
efficiency  features  offerred  by  a  new  DBMS. 
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B.2  BUILDER  DEPENDENCY 

The  BUILDER  screen  application  generator  (a  member  of  the 
RELATE  family  of  software)  was  used  to  implement  the  Data  Base 
Updating  system  and  Data  Dictionary ,  both  central  elements  of  the 
ALIAS  system.  It  is  likely  that  complete  rewrites  of  both 
modules  will  be  required  on  conversion,  since  BUILDER  currently 
runs  only  on  the  HP  3000.  BUILDER  was  used  because  the  only 
alternative  was  to  write  a  similar  package  from  scratch;  this 
package  would  have  had  so  many  host  dependencies  given  the  limi¬ 
tations  imposed  by  the  HP  3000  as  to  be  no  better  than  use  of 
BUILDER  for  conversion  purposes. 

CRI,  BUILDER'S  vendor,  is  considering  conversion  of  BUILDER 
to  run  under  UNIX  with  a  variety  of  DBMSs.  Should  this  occur  the 
outlook  in  this  area  might  improve  substantially. 

In  considering  alternative  screen  application  packages  for 
the  new  host  system  particular  care  should  be  taken  to  ensure 
that  all  the  FUNCTIONAL  features  of  the  DBU  can  be  implemented. 
Few  packages  offer  the  range  and  power  of  BUILDER. 

B.3  HP  3000  FORTRAN  DEPENDENCY 

The  HP  3000's  FORTRAN  compiler  is  a  nonstandard  extension 
of  the  ANSI  '66  standard  compiler  which  offers  many  ANSI  '77 
standard-equivalent  features.  Those  converting  ALIAS  FORTRAN 
programs  to  run  on  a  new  machine  will  find  that  a  moderate  effort 
will  be  required  to  correct  syntax  and  logic  to  conform  to  the 
ANSI  standard. 

The  major  problem  will  be  with  data  structures  which  mix 
character  and  numeric  data  types,  technically  forbidden  under  the 
'77  standard.  This  mixing  was  necessary  on  the  HP  3000  in  order 


to  support  RELATE  use,  as  noted  above. 
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A  number  of  syntax  differences  can  probably  be  dealt  with 
by  writing  a  specialized  editor  to  process  all  the  code  and  make 
the  necessary  changes.  HP  FORTRAN  uses  's'  rather  than  'a1  as 
the  variable-length  character  output  descriptor  in  FORMAT  state¬ 
ments,  permits  the  use  of  quotes  as  character  string  delimiters, 
does  not  support  in-line  string  concatenation,  and  limits  char¬ 
acter  strings  to  255  characters  in  length. 

The  OPEN  and  CLOSE  statements  are  also  not  supported  by  HP 
FORTRAN,  but  all  functionally  equivalent  calls  in  ALIAS  have  been 
isolated  in  calls  to  the  filopn  and  filcls  utilities,  sharply  re¬ 
stricting  the  extent  of  the  resulting  problem. 

B.4  MPE  DEPENDENCIES 

ALIAS  is  dependent  on  the  host  operating  system  to  a 
moderate  extent.  Due  to  the  process  memory  limitation  of  the  HP 
3000  a  good  deal  of  process  handling  is  done  in  running  modules. 
Conversion  personnel  may  elect  to  retain  this  multiprocessing 
capability  if  supported  by  the  new  machine,  or  may  simply  link 
all  modules  into  a  single  large  program  as  was  originally 
planned.  There  are  advantages  to  each  approach.  In  any  case, 
the  number  of  routines  in  which  process  handling  is  done  is 
sharply  limited. 

Likewise,  ALIAS  uses  MPE  extra  data  segments  as  extended 
data  memory  storage  in  cases  where  the  64K  byte  per-process  data 
memory  limitation  is  binding.  This  paging  can  be  eliminated  on  a 
truly  virtual  machine.  Again,  the  number  of  routines  involved  is 
rather  limited. 

Most  other  calls  to  operating  system  service  routines  are 
isolated  in  general-purpose  FORTRAN  utilities,  minimizing  the 
work  required  to  move  onto  a  new  system. 
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